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Software  Discounters 
OF  America     . 


S.D.  of  A. 


USA/Canada  Orders— 1-800-225-7638 
PA  Orders— 1-800-223-7784 
Customer  Service  412-361-5291 


Free  shipping  on  orders 

over  $100  in  continental  USA 

No  Surcharge  for  VISA/MasterCard 

Your  Card  is  not  charged  until  we  ship 


ACCESS 

Leader  Board  Golf  & 

Tourn.  Disk  (D) $9.88 

Leader  Board  Golf  &  Tourn. 

Disk  #1  ST $16 

Tentii  frame  ST $25 

Triple  Pack:  BHl,  BH2,  Raid 

Over  Moscow  (D)   $14 

ACCOLADE 


Bubble  Ghost  ST $23 

Fighl  Night  (D) $14 

Hardball  (D)  $14 

Mini  Putt  ST $23 

Test  Drive  ST $25 

ACTIVISION 
Cross  Country 

Road  Race  (D) $9.88 

Choslbustcrs  (D)   $9.88 

Music  Studio  (D) $23 

AMERICAN  EDUCATION 

Biology  (D)   $12 

Grammar  (D) $12 

Science  (D) Call 

U.S.  Geography  (D) $12 

U.S.  History  (D) $12 

Vocabulary  (D)    $12 

World  History  (D) $12 

ANTIC 


DATASOFT 
Alternate  Reality: 

The  City  (D) $19 

The  City  ST $26 

The  Dungeon  (D) $19 

Bismarck  ST    $26 

Firezone  ST Call 

Global  Commander  ST  . . .  $26 
Hunt  for  Red  October  (D)  Call 
Hunt  for  Red  October  ST  .  $32 

Tomahawk  64K  (D) $21 

Video  Title  Shop  64K  (D)  .$21 
DAVIDSON 

Math  Blaster  (D) $32 

Spell  It  (D)   $32 

Word  Attack  (D) $32 

ELECTRONIC  ARTS 
Software  Classic  Series: 
Financial  Cookbook  (D)  .  $6.88 
Lords  of  Conquest  (D)  .  .  $9.88 

Movie  Maker  (D) $9.88 

Music  Const.  Set  (D)  .  .  .$9.88 
Pinball  Const.  Set  (D)  ..$9.88 
Seven  Cities  of  Gold  (D)  $9.88 
Super  boulder  Dash  (D).$9.88 


A-Calc  Prime  ST $25 

A-Chart  ST $19 

Base  Two  ST $39 

Cyber  Paint  2.0  ST $49 

Flash  ST $19 

Phasar  3.0  ST $59 

Spectrum  512  ST $44 

3D  Breakthru  ST $25 

ARTWORX 

Bridge  5.0  (D) $19 

Bridge  5.0  ST $23 

Cycle  Knight  (D) $14 

Linkword  French  (D) $16 

Linkword  French 

1  or  2  ST $19  Ea. 

Linkword  German  (D)  . .  .  .$16 

Linkword  Russian  ST $19 

Linkword  Spanish  (D)   ...  .$16 

Linkword  Spanish  ST $19 

Strip  Poker  (D)   $21 

Strip  Poker  2  ST $25 

Female  Data  Disk  1(D)   .  ..$14 

Male  Data  Disk  2(D) $14 

Female  Data  Disk  3(D)  .  .  .$14 
Female  Data  Disk#4  ST.  .  $14 
female  Data  Disk#5  ST  .  .  .  $14 
AUDIO  LIGHT 

Music  Studio  '88  ST $39 

BATTERIES  INCLUDED 

Degas  Elite  ST $39 

BRODERBUND 

Karateka  (D) $9.88 

Loderunner  (D) $9.88 

Print  Shop  (D) $26 

Print  Shop  Graphics 

Library#1,  #2,  #3  (D)  $16.  Ea. 
P.S.  Companion  64K  (D)  .  .$23 

Sky  Chase  ST $25 

Super  Bike  Challenge  ST  .  .$14 
CENTRAL  POINT 

Copy  2  ST $23 

CINEMAWARE 

Defender  of  the  Crown  ST  $33 

S.D.I.  ST   $33 

Sinbad:  Throne  of 

the  Falcon  ST $33 

DATA  EAST 

Ikari  Warriors  ST $25 

Karnov  ST Call 

Lock  On  ST $25 

Platoon  ST $25 

Speed  Buggy  ST   $25 


Battleship  ST $19 

California  Games  ST $33 

Champ.  Wrestling  ST $14 

Dive  Bomber  ST $33 

Dragonriders  of  Pern  (D)  $6.88 

final  Assault  ST $33 

Impossible  Mission  2  ST  .  .$33 

Metrocross  ST $16 

Summer  Games  (D) $14 

Technocop  ST Call 

Temple  Apshai  (D) $9.88 

Temple  Apshai  Trilogy  ST   .  $14 

Winter  Games  ST $14 

World  Games  ST $14 

EQUAL  PLUS 

Financial  Plus  ST $129 

FORESIGHT 

Draphix  ST $119 

Draphix  Data  Plotter  ST .  .  .  $29 
fit 

Dungeonmaster  ST $25 

Oids  ST $23 

Sundog  ST $23 

GAMESTAR 

Champ.  Football  ST $25 


Club  Backgammon  ST  ...  .  $23 

Power  Spreadsheet  ST $95 

Vegas  Craps  ST $23 

Vegas  Gambler  ST $23 

MASTERTRONIC 

Action  Biker  (D) $4.88 

Chopper  X  ST $14 

Ninja  (D) $4.88 

Ninja  Mission  ST $14 

The  UsI  V8  (D) $4.88 

Vegas  Poker  & 

lackpot(D) $4.88 

MEGAMAX 

Laser  C  ST $129 

MICHTRON 

Airball  ST $25 

Airball  Const.  Set  ST $16 

GfA  Artist  ST $49 

GfA  Basic  Book  ST $25 

GFA  Basic  Int.  3.0  ST $65 

GfA  Basic  Compiler  ST.  .  .$39 

GfA  Companion  ST $33 

Coldrunner  2  ST $25 

Int'l.  Soccer  ST $25 

juggler  ST $33 


Bop  &  Wrestle  64K  (D) . . .  $19 

Captain  Blood  ST $33 

De  la  Vu  ST  $33 

♦Deeper  Dungeons  (D)  .  .  .  $16 

Gauntlet  ST $33 

Gauntlet  64K  (D)  $23 

Harrier  Combat  Sim.  ST  .  .$33 
Indiana  Jones  &  The 
Temple  of  Doom  ST ...  .  $33 

Infiltrator  64K  (D) $19 

Into  the  Eagle's  Nest  ST  .  .  $25 

Out  Run  ST Call 

Road  Raider  ST $33 

Road  Runner  ST $33 

720  ST Call 

Shadowgate  ST $33 

Space  Harrier  ST $33 

Super  Star  Hockey  ST  ....  $33 

Uninvited  ST $33 

'Requires  Gauntlet! 
OMNITREND 

Breach  ST $25 

Breach  Scenario  Disk  ST.  .$16 

Paladin  ST $25 

Quest  Disk  for  Paladin  ST .  $16 


SIERRA 


Police  Quest  is  Sierra's  trek  into  the  brutal  world  of  vice, 
drugs  and  homicide.  An  adult  perspective  on  the  life  of  a 
police  officer,  Police  Quest  deals  not  only  with  "Dirty 
Harry"  aspects  of  the  profession,  but  also  with  its  daily 
routines. 

Police  Quest  is  the  most  authentic  graphic  adventure  game 
available  for  personal  computers.  Players  are  required  to 
follow  police  procedures  during  the  course  of  the  action, 
just  as  officers  must  follow  them  in  the  real  world.  A 
manual  explaining  police  procedures  for  arrests  and  other 
situations  is  included  with  the  package.  Police  Quest  is  a 
dramatic  tale  straight  from  today's  headlines! 


For  the  Atari  ST 
$33 


ELECTRONIC  ARTS 

Alien  Fires  ST $26 

Arcticfox  ST $14 

Awesome  Arcade  Pack  ST  .  $32 

Bard's  Tale  ST $32 

Chessmaster  2O00  (D) $26 

Chessmaster  2000  ST $29 

Double  Dragon  ST Call 

Empire  ST $32 

Financial  Cookbook  ST  .$9.88 
Lords  of  Conquest  ST   ....  $14 

Marble  Madness  ST   $26 

Mavis  Beacon  Teaches 

Typing  ST $32 

Music  Const.  Set  ST $32 

Roadwars  ST $21 

Rockford  ST $21 

Scavengers  ST Call 

Scrabble  ST $26 

Scruples  ST $26 

Star  Fleet  1  ST    $35 

Star  Fleet  1  (D) $32 

Twilights  Ransom  ST $23 

Zany  Golf  ST    Call 

EPYX 

Art  &  Film  Director  ST .  .  .$49 


CRIBNIF 

Neo  Desk  ST $19 

HIGH-TECH  EXPRESSIONS 

Astro-Grover  (D) $6.88 

Award  Ware  (D) $9.88 

Big  Bird's  Spc.  Delivery  (D)  $6A8 
Ernie's  Magic  Shapes  (D)  $6.88 

Print  Power  (D) $9.88 

Sesame  SI.  Print  Kit  (D)  .$9.88 

■All  Hi-Tech  req.  64K! 

ICD 

PR  Connection $59 

Rambo  XL $29 

US  Doublet: 

with  Sparta  DOS $49 

without  Sparta  DOS  ...  $29 
INTERSECT 

Interlink  ST $25 

Revolver  ST $33 

ISP 

Dyna  Cadd  ST $447 

Masterplan  ST $59 

Vip  Professional  ST $95 

LDW 

Basic  Compiler  2.0  ST   .  .    $59 


Karate  Kid  2  ST $25 

Leatherneck  ST $25 

Master  CAD  ST $129 

Slaygon  ST $25 

Stuff  ST $25 

Tanglewood  ST $25 

Tetra  Quest  ST $25 

Time  Bandit  ST $25 

Tune  Up  ST $33 

MICROLEACUE 

Baseball  (D) $25 

Baseball  2  ST   $39 

Box  Score  Stats  (D) $16 

General  Manager  (D)  or  ST  .  $19 
1987  Team  Data  (D)  or  ST  $14 
MICROPROSE 

f15  Strike  Eagle  (D) $23 

F15  Strike  Eagle  ST $25 

Gunship  ST $33 

Silent  Service  (D)   $23 

Silent  Service  ST $25 

MINDSCAPE 

Alien  Syndrome  ST Call 

Balance  of  Power  ST $33 

Blockbuster  ST $25 


Universe  2  ST $33 

ORIGIN 

Autoduel  (D)  or  ST $25 

Moebius  ST $25 

Quest  for  Clues  (Book)  .  .  .$19 

Ultima  3  (D)  or  ST $25 

Ultima  4  (D)  or  ST $39 

PROGRESSIVE 

Superbase  Professional  ST$189 

PROSPERO 

First  Word  Plus  ST Call 

QMI 

Desk  Cart  ST $69 

ST  Talk  Professional $19 

RAINBIRD 

Black  Lamp  ST $19 

Carrier  Command  ST  .  .  .  .$29 

Corruption  ST $29 

Elite  ST $23 

Guild  of  Thieves  ST   $29 

linxler  ST   $25 

Slarglider  2  ST   $29 

The  Pawn  ST $19 

Universal  Military 
Simulator  ST   $33 


Virus  ST $19 

REEVE 

Diamond  OS  (D) $19 

SIERRA 

Black  Cauldron  ST   $25 

King's  Quest 

1,  2,  or  3  ST $33  Ea. 

Leisure  Suit  Larry  ST $25 

Mixed-Up  Mother  Goose  ST$19 

Police  Quest  ST    $33 

Space  Quest  1  or  2  ST  $33  Ea. 
SIMON  &  SCHUSTER 

Star  Trek  ST $25 

SOFTREK 

Turbo  ST $33 

SPRINGBOARD 

Certificate  Maker  ST $25 

CM.  Library#1  ST $19 

Newsroom  64K  (D) $33 

SSI 

Advanced  Dungeons  & 
Dragon:  Heroes  of  the 

Lance  ST $26 

Phantasie  1,  2  or  3  ST   ...  $26 

Questron  2  ST $32 

Rings  of  Zilfin  ST $26 

Roadwar  Europa  ST    $29 

Roadwar  2000  ST $26 

Stellar  Crusade  ST $39 

War  Game  Const.  Set  (D)  .  $19 
War  Game  Const.  Set  ST   .  $23 

Warship  ST $39 

Wizard's  Crown  (D)  or  ST  $26 
SUBLOGIC 

Flight  Sim.  2  ST $33 

F.S.  Scenery  Disks Call 

let  ST $33 

THREE  SIXTY 

Dark  Castle  ST $25 

Warlock  ST $23 

THUNDER  MOUNTAIN 
Summer  Challenge  ST  .  .$9.88 

Tau  Ceti  ST $9.88 

Top  Gun  ST $9.88 

Winter  Challenge  ST   .  .  .  $9.88 

Wizball  ST $9.88 

TIMEWORKS 

Data  Manager  ST $49 

Desktop  Publisher  ST $87 

D.P.  Clip  Art: 
Education  Graphics  ST   .$25 
People,  Places  &  Things  ST$25 
Symbols  &  Slogans  ST  . .  $25 

Partner  ST $33 

Swiftcalc  ST $49 

Word  Writer  ST    $49 

UNISON  WORLD 

Art  Gallery:  Fantasy  ST  .  .  .$19 

Art  Gallery  1  or  2  ST    $19  Ea. 

Print  Master  Plus  ST $25 

P.M.  Fonts  &  Borders  ST  .  .  $23 
VERSASOFT 

db  Man  V5.0  ST Call 

MARK  WILLIAMS 

C  Source  Dedugger  ST  .  .  .  $44 

Mark  Williams  C  ST $119 

WORD  PERFECT 

WP  Word  Processor  ST  .  .  $199 

ACCESSORIES 

Bonus  SVt  SS,  DD    .  .$4.99  BX 

Bonus  5V<  DS,  DD  .  .$5.99  BX 

CompuServe  Starter  Kit  .  .  .  $19 

Disk  Drive  Cleaner    ....  $6.88 

Epyx  200  XI  Joystick $12 

Epyx  500  XJ  Joystick $14 

Indus  GT  Drive Call 

Supra  Hard  Drives Call 

Supra  Modems Call 

Wico  Bat  Handle $17 

Wico  Ergostick  $19 


P.O.  BOX  111327  —  DEPT.  AT  —  BLAWNOX,  PA  15238 


*Please  Read  The  Following  Ordering  Terms  &  Conditions  Carefully  Before  Placing  Your  Order:  Orders  with  cashiers  check  or  money  order  shipped  immediately  on  in  stock  items!  Personal  &  Company 
checks,  allow  3  weeks  clearance.  No  C.O.D.'s!  Shipping:  Continental  U.S.A.-Orders  under  $100  add  $3;  free  shipping  on  orders  over  $100.  AK,  HI,  FPO,  APO-add  $5  on  all  orders.  Canada  &  Puerto 
Rico-add  $7.50  on  all  orders.  Sorry,  no  other  International  orders  accepted!  PA  residents  add  6%  sales  tax  on  the  total  amount  of  order  including  shipping  charges.  CUSTOMER  SERVICE  HOURS:  Mon.-Fri. 
9  AM-5:30  PM  Eastern  Time.  REASONS  FOR  CALLING  CUSTOMER  SERVICE— 412-361-5291  (l)Status  of  order  or  back  order  (2)if  any  merchandise  purchased  within  60  days  from  S.D.of  A.  is  defective, 
please  call  for  a  return  authorization  number.  We  will  not  process  a  return  without  a  return  aulh.  #!  Defective  merchandise  will  be  replaced  with  the  same  merchandise  only.  Other  returns  subject 
to  a  20%  restocking  charge!  After  60  days  from  your  purchase  date,  please  refer  to  the  warranty  included  with  the  product  purchased  &  return  directly  to  the  manufacturer.  Customer  service  will 
not  accept  collect  calls  or  calls  on  S.D.of  A.'s  800#  order  lines!  Prices  &  availability  are  subject  to  change!  New  titles  are  arriving  daily!  Please  call  for  more  information.  ORDER  LINE  HOURS:  Mon.-Thurs. 
9:00  AM-7:00  PM  Fri.  9:00  AM-5:30  PM  Sat.  10:00  AM-4:00  PM  Eastern  Time. 


American  Techna- Vision 


For  Orders  Only  - 1-800-551-9995 
CA.  Orders  /  Information  415-352-3787 


"Providing  8  Bit  support  with  one  of  thie  Worlds 
largest  inventories  of  Atari  replacement  pgrts" 

•  No  surcharge  for  VISA/ MasterCard 

•  Your  card  is  not  cfiarged  until  we  ship 


800  4  PIECE  BOARD  SET 

Includes  Main  Board,  Power  Supply 
Assembly,  CPU  Module  and  10K 
Revision  B  Operating  System  Module. 
All  boards  are  new,  tested  and  complete 
with  all  components.    $  /^  o  50 


^28^ 


FLAT  SERVICE  RATES 

1050  DISK  DRIVE $75.00 

810  DISK  DRIVE $69,50 

850  INTERFACE $39.50 

800  COMPUTER $49.50 

1200XL  COMPUTER $49,50 

Flat  rates  include  Parts  &  Labor.  60  day 
warranty.  Include  $7.CX3  shpping  &  insurance 


800  10K  "B"  O.S.  Module 

Older  800  units  need  the  revision  "B" 
Operating  system  to  run  newer 
soltware.  Type  the  following  peek  in 
BASIC  to  see  which  revision  you 
have.  PRINT  PEEK(58383).  a-  ^  rn 

If  the  result  is  56  order  now!      >-' 


800/400  MODULES 

NEW  PARTS  COMPLETE  WITH  ICS 

$^^  rn  ■  800  '^sifi  Board 
I  J^'^-800/400CPUwithGTIA 
•  800 10K  "B"  O.S.  Module 
'  400  Main  Board 
'  400  Power  Supply  Board 


9= 

EACH 


CX853  16K  Ran  Module  $14.50 
800  Power  Supply  Board  $14.50 

INTEGRATED  CIRCUITS 

•  CPU CO14806 

•  POKEY C012294 

•  PIA C014795 

■  GTIA CO14805 

•  ANTIC C012296 

■  CPU CO10745 

•  PIA CO10750 

•CPU C014377 

•  DELj^Y CO60472 

•2600TIA..  CO10444 

•  PIA C012298 

•CPU 6507 

•  PIA 6532 

•  RAM 6810 

•  CPU 6502B 


$^50 

EACH 


C061598  $20.00 
C061991  $15.00 
1050  Rom  $13.50 
C061618  $20.00 


C021697  $15.00 
C025953  $9.50 
5713  ....  $5.25 
C024947  $15.00 


1050  MECHANISM 

Factory  fresh  TANDON  mechs. 
make  difficult  repairs  a  snap.  Units 
are  complete  with  Head,  Stepper, 
Spindle  motor,  belt  etc.  Just  plug  in, 
no  difficult  alionments  or  adjust- 
ments required        IT.    .—,-- 

*4/ 


WORD  PROCESSORS 

•BANK  STREET  WRITER 

•  CUT  &  PASTE 

•LETTER  WIZARD      $ -|  75O 

Your  choice  of  these 

three  popular  disk 

based  word  processors 

For  all  8  bit  Atari. 


$-|7e 


EACH 


XL  40  PIN  LSI  CHIP  SET 

A  Complete  set  of  40  Pin  Large 
Scale  Integrated  Circuits  for  your 
800XL,  600XL  or  1200XL  computer. 
Great  for  quick  repairs!  Set 
contains  one  each  of  the  ^    .  -^  nc  I 
following:  CPU,  GTIA.      $i(-:yo| 
ANTIC,  PIA  AND  POKEY.         '  V-* 


REPAIR  MANUALS 

SAMS  Service  Manuals  for  the 
following  units  contain  schematics, 
parts  listings,  labelled  photographs 
showing  the  location  of 
checkpoints  and  more!  A  special 
section  qives  oscilloscope  and 
logic  probe  readings  allowing  you 
to  narrow  the  malfunction  down  to 
a  specific  chip  or  transistor! 
800,  800XL,  130XE,  400,  1025 

and  1050 $19.50  each 

520ST  Service  Manual.  $37.50 

MISC.  HARDWARE 

13  Pin  Serial  I/O  Cable  ....  $5.95 
1050  Track  0  Sensor . . .  $8.50 
2793  1050  Controller  IC  .  .  $19.50 
Paddle  Controllers  (Pair)  .  .  $6,50 
400  3  Piece  Board  Set ,  . .  $19.50 
Fastchip  for  800/400  .  .  $15.50 
600XL  64K  Upgrade  Kit  $29.95 
Rambo  XL  w/o  Ram  IC's  $39.95 
Supra  2400  Baud  Modem..    $157.95 

ACE  Joystick $7.95 

850  or  PR  Modem  Cable  $14.50 
850  or  PR  Printer  Cable    $14.50 

Printer  Interface $39.95 

I/O  13  Pin  PC  mount  .  .  .     $4.50 

I/O  13  Pin  Plug  Kit $4.50 

ST  6'  Drive  Cable  ....  $14.00 
810  Door  Latch  Assy.  .  .    $15.00 

1027  Transformer CALL 

U.S.  Doubler $29.95 

ST  fvtanitor  Connector . .  .  $5,50 
ST  Drive  connectDr  plug.  . .  $6.50 
.  ST  to  5/14  ■■  Drive  Cable     $23.95 


TOWER  PACKS 

Exact  replacement  trans-  er*    a    Mr~f\\ 

former  for  800/400,  1050  it)  "I  /1 5  0 
810,  1200XL,850,XF55U  1 '"h 

1020  units.  Part  #0017945. 


XUXE  SUPPLY 

PoAerPakforeoOXL.eoOXL    <ft 
130XE,  66XE  &  XE  Game.     * 


25' 


,00 


KEYBOARDS 

New  and  complete  subassembly. 
Easy  intemal  replacement. 

130XE/65XE    $35.00 

800 $40.00 

800X1 $29.50 

400 $12.50 


SERIAL  I/O  CABLE 

High  quality  13  pin  data  cable  used 
to  connect  8  bit  Atari's  to  periphials 
including  1050,  810,  XF551,  850, 
1027,  1010,  1020,  820,  822,  1030 
and  many  more. 


$C95 


COMPUTER  BOOKS 

Hackerbook $5.00 

Inside  Atari  Basic $5.00 

Atari  Basic  Ref.  manual.  $5.00 

How  to  6502  Program.  .  .  $5.00 

Programmers  Ret.  Guide  $14.95 

Basic- Faster  &  Bener .. .  $22.95 
Assembly  Language  Guide  $19.95 

XE  Users  Handbook $17.95 

XL  Users  Handbook  ....  $17.95 

Advanced  Programming  $19.50 

Wnte  Your  CMn  Games.  $5.00 

•'Mapping  the  Atari $18.50 

SERIAL  I/O  CABLE 

High  Quality,  13Pin $5,95 

MAC-65  CARTRIDGE 

6502  Machine  language  Macro- 
Assembler,  First  class  tool  for 
serious  programmers, .  .    $59.95 

ATARI  850  INTERFACE 

Bare  PC  Board  with  parts  list  and 

crystal $7.50 

Board  &  all  plug  in  IC's  . .  .  $39.50 

PR:  CONNECTION 

SeriaVParaltel  Interface  for  connecting 
modems  and  printers $65.00 

BASIC  CARTRIDGE 

Exact  replacement  for 
800/400/1200XL $15.00 

EPROM  CARTRIDGES 

16K  Eprom  Board  with  case. 
Specify  dual  2764  or  single  27128 
style.  Gold  contacts $6.95 


•  SOFTWARE  • 

Pac-Man  Cartridge $4.00 

Deluxe  Invaders  Cart.  . .  $A,00 
Journey  to  the  Planets  . .  $4.00 
Mission  Asteroid  Disk  . .     $4.00 

Crossfire  Cartridge $5.00 

Dig  Dug  Disk $9.95 

Pole  Position  Disk  .  .  .    $9.95 

Q'Bert  Cartridge $10.00 

Choplifter  Cart $10.00 

Silicon  Warrior  Cart $12.50 

Lea-ningwith  LeeperCart.  $12.50 

Springer  Cart $5.00 

Sports  Spectacular  Disk   $7.50 

Donkey  Kong  Cart $5.00 

Eastem  Front  Cart $10.00 

Stratos  Disk $7.50 

Murder  on  the  Zinfendorf  $10.00 
PILOT  Language  Cart.  .  .$17.50 
Cut  &  Paste  W.P.  Disk  .  $17,50 
Master  Typing  Tutor , .    $15,00 

OopZone  Disk $12,50 

Edt/Asm  Cart,  w/o  man.  . .  $15.00 

Home  filing  manager $7.50 

Frogger  Disk $5.00 

Fort  Apcalypse  Disk  . . .    $5.00 

Spider  Man  Disk $5.00 

The  Hulk  Adventure  Disk  $5.00 
Wizard  &  The  Princess  ,  .  $5.00 
Ulysses  &  Golden  Fleece  $5.00 
Human  Torch  &  The  Thing  $5.00 
Musical  Pilot  Ed.  Disk. . . .  $5.00 

Chambers/Zorp  Disk $5,00 

Pathfinder  Disk $5,00 

Match  Racer  Disk $5.00 

Encounter/Questar  Disk.    $5.00 

Baja  Buggies  Disk $5.00 

Com'putation  Disk  . .  .  $5.00 
Debug  Childware  Disk  .  .  $5.00 
Crystal  Raider  Disk  ....  $5.00 
Dispatch  Rider  Disk  ....  $5.00 
Master  Chess  Dsk    ....  $5.00 

Molecule  Man  Dsk $5.00 

Speed  King  Disk $5,00 

Last  V-8  Disk $5.00 

Fractions  Tutorial  Disk. .     $5.00 

Reading  Skills  Disk $5.00 

Clowns  &  Balloons  Disk  $7.50 
Fun  in  Learning  Disk  ....  $7.50 
Fun  in  Numbers  Disk  . .  $7.50 
Honey  Craze  Math  (D)  $7,50 
The  Factory  Dsk  ....     $20.00 

Gorf  Cart.  800/400 $4.00 

Atlantis  Cart,  $4.00 

Wombats  Adventure  (D)   $5.00 

ACTION  O.S.S $59.95 

BASIC  XEO.S.S $59,95 

MAC-65  O.S, S $59,95 

BASIC  XL  0,S,S.  ..  .  $49.50 
SpartaDOS  Const.  Set    $39.50 

Mercenary  Disk $12.50 

The  Goonies  Disk  ....    $12.50 

Conan  Disk $12.50 

Saracen  Disk $9.95 

Crosscheck  Disk  ....  $12.50 
Never  Ending  Story  (D)  $12.50 
Gunslinger  Dsk.  XL7XE  $9.95 
Letter  Wizard  W.P.  (D)  $17.50 
Basic  Compiler  for  800  $29.95 
Telelink  1  Cartridge  ....  $10,00 


CALL  TOLL  FREE 
1-800-551-9995 

IN  CALIF.  OR  OUTSIDE  U.S. 
CALL  415-352-3787 


AMERICAN  TECHNA-VISION 

Mail  Order:   15338  Inverness  St.,  San  Leandro,  Ca.  94579 
Repair  Center:    2098  Pike  Ave.,  San  Leandro,  Ca.  94577 

Terms:  NO  MINIMUM  ORDER.  We  accept  money  orders,  personal  checks  or 
C.O.D.s.  VISA,  Master/Card  okay.  Credit  cards  restricted  to  orders  over  $20.00. 
No  personal  checks  on  C.O.D.  -  Shipping:  $4.00  shipping  and  handling  on  orders 
under  $150.00.  Add  $2.25  for  C.O.D.  orders.  In  Canada  total  $6.00  for  shipping  and 
handling.  Foreign  shipping  extra.  Calif,  residents  include  7%  sales  tax.  All  items 
guaranteed  30  days  from  date  of  delivery.  All  sales  final.. 

Plicae  subject  to  change  witioul  notice,  S«id  SASE  for  free  price  list.  Atari  is  a  reg.  trademark  ot  At»i  Cap, 


A  COMPUTER  SOFTWARE  SERVICES 
RO  BOX  17660,  ROCHESTER  NY  14617 
ATARI'PHONE  [716]  467-9326 

JUST  RELEASED! 

S99.95       "SUPER  ARCHIVER  11"! 

(for  ATARI  1050  drives) 

NOW!  COPYS  all  ENHANCED  DENSITY  programs  plus  retains  all  of  the  teatures 
of  our  World  Famous  SUPER  ARCHIVER!  (see  below).  Allows  vou  to  COPY  or 
CREATE  single  or  ENHANCED  density  protection  sotiermes  (including  PHAN- 
TOM SECTORSI).  Completely  automatic;  compatible  with  the  BIT-WRITERI;  the 
UntMATE  BACKUP/PROGRAMMING  device!  Only  S99.95  plus  $4  S/H/l 
NOTICE!  If  you  already  own  a  SUPER  ARCHIVER!,  you  can  upgrade  to  a  SUPER 
ARCHIVER  II  for  only  $29,95  plus  S4  S/H/l  (disk  only  -  no  additional  hardware 
required). 

THE 

$69.95        "SUPER  ARCHIVER'T         $69.95 

(for  ATARI  1050  drives) 

The  new  SUPER  ARCHIVER,  obsoletes  ol!  copying  devices  currently  available 
for  the  ATAR1 10501  It  eliminates  the  need  for  Patches,  PDB  (lies.  Computer 
Hardware,  etc.  Copies  are  exact  duplicates  of  originals  and  w!!l  run  on  any 
drive;  without  exaggeration,  the  SUPER  ARCHIVER  Is  the  most  powortui 
PROGRAMI^ING/COPYING  device  available  for  the  10501  Installation  consists 
of  a  plug-in  chip  and  6  simple  solder  connections.  Softwares  Included. 
Features  are: 


•  ARCHIVER/HAPPY  ARCHIVER 
COMPATIBLE 

•  BUILT-IN  EDITOR  -  reads,  writes, 
displays  up  to  35  sectors/track 
short 

•  BUILT-IN  CUSTOM  FORMATTER 
up  to  40  sectors/track 

•  BUILT-IN  DISASSEMBLER 

•  BUILT-IN  MAPPER  -  up  to  42  sectors/ 
track 

•  DISPLAYS/COPIES  Double  Density 
HEADERS 

•  AUTOMATIC  FORMAT  LENGTH 
CORRECTION 

•  SIMPLE  INSTALLATION 

The  SUPER  ARCHIVER  is  so  POWERFUL  that  only  programs  we  know  that  can't 
be  copied  are  the  newer  ELECTRONIC  ARTS  and  SYNFILE/SYNCALC  (34  FULL 
sectors/track).  If  you  want  it  ALL  . . .  buy  the  "BIT-WRITER"!  also  . . .  then  youll 
be  able  to  copy  even  these  programsl  Only  $69.95  plus  $4  S/H/l. 


•  TRUE  DOUBLE  DENSITY 

•  ULTRA-SPEED  read/write 

•  FULLY  AUTOMATIC  COPYING 

•  SUPPORTS  EXTRA  MEMORY 

•  SCREEN  DUMP  to  printer 

•  TOGGLE  HEX/DEC  DISPLAY 

•  SECTOR  orTRACK  TRACING 

•  AUTOMATIC  DIAGNOSTICS 

•  DISPLAYS  HIDDEN  PROTECTION 

•  ADJUSTABLE/CUSTOM  SKEWING 

•  AUTOMATIC  SPEED 
COMPENSATION 

•  AUTOMATIC/PROGRAMMABLE 
PHANTOM  SECTOR  MAKER 


$79.95 


"BIT-WRITER"! 


$79.95 


The  Super  Aichiver  "BITWRITER"!  is  capable  of  duplcaltng  even  the  "uncopyable" 
EA  and  SYN  series  which  employ  34  FULL  sectors/tracks.  "BIT-WRITER"!  is 
capable  of  reproducing  these  and  FUTURE  protection  schemes  of  non 
physicially  damaged  disks.  PLUG-IN  circuit  boards  and  4  simple  solder 
connections.  The  "SUPER  ARCHIVER  with  "BIT-WRITER"!  is  the  ultimate 
PROGRAMMING/COPYING  device  for  Atari  1050's.  EXACT  DUPLICATES  of 
originals  are  model  Copies  run  on  ANY  drive.  Must  be  used  with  Super 
Archiver.  Only  S79.95  plus  $4  S/H/l. 

$69.95         "ULTRA  SPEED  PLUS"         $69.95 

Imagine  a  universal  XL/XE  Operating  System  so  easy  to  use  ttiot  anyone 
can  operate  It  instantly,  yet  so  versatile  and  powerlul  ttiat  every  Hacker, 
Programmer  and  Ramdisk  owner  will  wonder  how  ttiey  ever  got  along 
wittiout  it!  Ultra  Speed  Plus  puts  unbelievable  speed  and  convenience  at 
your  fingertips.  Use  ANY  DOS  to  place  an  ULTRA  SPEED  format  on  your  disks, 
boot  any  drive  ('1-9)  upon  power-up,  format  your  RAMDISK  in  Double  Density, 
activate  a  built-in  400/800  OS  for  software  compatibility,  plus  dozens  of  ottier 
features  too  numerous  to  mention!  Below  are  }ust  a  FEW  features  you'll  find 
in  the  amazing  OS: 


ULTRA  Speed  SIO  tor  most 
modified  drives 
ULTRA  Speed  is  toggleable 
Boot  directly  from  RAMDISK 
Special  timer  circuits  not  re- 
quired for  1  or  2  Meg  upgrades 
Background  colors  adjuslbie 
Reverse  use  of  OPTION  key 
■  Cold-start  without  memory  loss 
'  Built-in  floppy/disk  configuration 
editor  (1-9) 


•  Built  in  RAMDISK  configura- 
tion editor  (1-9) 

•  RAMDISK  exactly  duplicates 
floppy  drive  so  sector  copy- 
ing and  sector  editing  ore 
now  possible 

•  Built  In  MINI  Sector  Copier 

•  Toggle  SCREEN  OFF  lor  up  to 
40%  Increase  ol  processing 
speed. 

■  Toggle  Internal  BASIC 


•  Ram   resident   disk   loader 

grogrom  (MACH  10  menu) 
OUBLE  DENSITY  RAMDISK 
capable 

•  Entire  MEMORY  test  that  pin- 
points defective  RAM  chip 

•  Boot  any  drive  (1-9)  upon 
power-up  or  cold-slart 

•  Supports  memory  upgrades 
up  to  TWO  MEGABYTES 

•  THREE  Operating  Systems  in 
one  (XL/XE,  400ye00,  ULTRA 
SPEED  PLUS] 


$29.95 


"XF551  ENHANCER!" 


$29.95 


The  XF551  Atari  drive  is  a  fine  product  with  one  ma)or  flaw.. .It  writes  to  side 
TWO  of  your  flopping  disks  BACKWARDS.  This  causes  read/write 
incompatibility  problems  with  all  other  single  sides  drives  made  tor  Atari 
such  as  Indus.  Trak,  Rona,  Percom,  Astra,  Atari  1050,  Atari  810,  etc.  Add  the 
XF551  ENHANCER  to  the  new  XF551  drive  and  your  problems  are  overt  This 
device  will  restore  100%  compatibility  while  retaining  original  design 
qualities  ol  Atari's  super  new  drive.  The  XF551  ENHANCER  Is  a  MUST  lor  all 
XF551  Owners.  Installation  Is  simple.  Only  S29.95  plus  $4  S/H/l. 


DEALER/DISTRIBUTOR/USER  GROUP  Discount  avallalbe  call  lor  info. 

PHONE  Orders  •  IvIASIER  CARD,  VISA  I^AIL  -  (vloney  Orders,  Checks 

•SHIPPINGI  Add  S4  (or  ShIpping/Handling/lnsurance  within  ttie  U.S.A. 

UPS  BLUE  LABLE  (2nd  DAY  AIR)  available  for  S3  extra  per  shipment. 

CALL  TODAY!  (716)  467-9326  COMPUTER  SOFTWARE  SERVICES 

9  am  ■  5  pm  (EST)  WEEKDAYS  P.O.  Box  17660 

Rochester,  N.Y.  14617 


A 

ATARI- 


$39.95  RICHMAN'S  $39.95 

80  Colunnn  Word-Processor! 

Easy  to  use,  very  powerful,  and  NO  ADDITIONAL  HARDWARE  required! 
Works  wittn  TV  or  Monitor!  This  "DISK  ONLY"  80  Column  Word-Processor  is 
simple  to  use  while  offering  numerous  features  such  as: 


•  Completely  Menu  driven 

•  Self  contained  DOS 

•  Complete  Text  formatting 

•  Built  in  Printer  Drivers 

•  Page  numbering 

•  Justify  and  Endfill 

•  High  Speed  Cursor 

•  Dictionary 

•  80  COLUMNS  ON  THE  SCREEN! 
One  expert  has  compared  40  domestic  and  foreign  word-processors 
and  concluded  that  the  RICHMANS  80  Column  Word-Processor  is  the 
best!  Only  $39.95  plus  $4  S/H/l.  (64K  required). 


insert  and  Delete 

Search  Mode 

View  only  mode 

Memory  Statistics 

Alternate  Output 
'  Change  screen  Colors, 

borders,  luminesce 
'  Mouse  compatible 


$39.95 


THE  "QUINTOPUS!" 


$39.95 


The  "QUINTOPUSI"  is  an  inexpensive  device  that  provides  a  tremendous 
amount  of  convenience  while  eliminating  the  problems  associated  with 
the  endless  "daisy-chaining"  of  peripherals  (eg:  drives,  interfaces,  printers, 
modems,  cassettes,  eta).  The  "QUINTOPUSI"  is  an  I/O  port  expander  that 
converts  a  single  I/O  output/Input  Into  five  additional  outputs/Inputs.  Instead 
ol  daisy-chaining  all  of  your  peripherals  (which  often  times  results  In  passing 
a  signal  through  30  feet  or  more  of  cable!),  the  "QUINTOPUSI"  allows  each 
device  to  be  connected  directly  to  the  computers  through  only  three  or 
four  feet  of  cable.  This  Is  particularly  useful  when  attempting  to  use 
ULTRASPEED  or  WARPSPEED  data  transfer  rates.  The  "QUINTOPUSI"  also 
provides  the  "extra"  I/O  ports  often  needed  to  connect  devices  not  having 
daisy-chaining  capabilities.  Cable  resistance  and  compacitance  are 
greatly  reduced  thereby  significantly  improving  the  opportunity  of 
accurate  data  transfers!  Only  $39.95  plus  $4  S/H/l. 

$59.95  THE  "QUINTOPUS!"  $59.95 

(with  SWITCHABLE  PORTSI) 

This  Deluxe  version  of  the  "QUINTOPUSI"  has  all  of  the  above  features  with 
the  additional  benefits  of  two  SWITCHABLE  PORTSI  This  means  you  can 
connect  two  computers  to  one  printer  or  two  printers  to  one  computer;  you 
can  switch  in  a  computer/printer  combination  and  while  you're  printing 
out  a  long  document,  switch  in  a  second  computer  to  access  a  modem, 
disk  drive,  cassette  deck,  etcl  Switch  multiple  combinations  of  peripherals 
or  computers  without  the  hassel  or  re-arranging  I/O  cables ....  simply  flip 
a  switchl  Only  $59.95  plus  $4  S/H/l. 


LIMITED  SPECIALS! 

Previously  we  listed  these  products  under  our  FIRESALE  ad  but  many  of  our 
customers  feared  that  the  software  Items  might  be  smoke  or  water 
damaged.  They're  NOTl  All  of  the  items  listed  below  are  BRAND  NEW.. .only 
their  literature  or  packing  may  have  slight  cosmetic  imperfections  All  items 
are  fully  warrantledl  Quantities  are  limitedl  No  rainchecksl 


1 .  PILL  (without  case) 

2.  SUPER  PILL  (without  cose) 

3.  XL  FIX  ROM 

4.  ULTRA  l»IENU/DOS 

5.  DISKCRACKER  (Newest  version) 

6.  ELECTRONIC  PHANTOM  SECTOR  MAKER  DELUXE 

7.  RICHMANS  80  COLUMN  WORD  PROCESSOR 
a.  MIRACLE  (Disk  only  Version  ol  impossible) 
9.  IMPOSSIBLE  for  800  or  800XL 

10.  XL  MATE 

11.  COMPACTOR 

12.  KLONE II  (Generic  HAPPY  backup) 

13.  SILENCER 

14.  BLACK  PATCH  (MASTER) 

15.  BLACK  PATCH  DATA  DISKS  1  &  2 

•Order  5  Items  or  more  and  we  will  pay  the  frelghtl 

These  SPECIALS  ore  for  C.S.S.  customers  only  ■  NO  DEALER  DISCOUNTS  ■  NO  RAINCHECKS 

■  LIMITED  QUANTITIES 
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FEATURES 
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41     HARD-WIRED  RAY  TRACING  by  Michael  Bjorkman 

Shadows  and  reflections  for  your  8-bit  graphics  'type-in  Software  30 


Error  Trapping.     Page  49 


44    EQUIVALENCE  by  Doug  White 

New  way  to  speed  up  your  BASIC  programs 


type-in  Software  32 


49    ERROR  TRAPPING  IN  ATARI  BASIC  by  Heidi  Brumbaugh 
Prevent  craslies  in  your  programs 

58    STAR  NX-TOOO  RAINBOW  by  Matthew  Ratcliff 
First  affordable  COLOR  dot-matrix  printer 

DEPARTMENTS 


SUPER  DISK  BONUS 


Real  World  Interface.     Page  52 


12  MANDALA  MOVIES  by  Mike  McForlane 
Colorful  kaleidoscope  construction  set 

ONLINE 

13  ANTIC  INDEX  by  Charles  Jackson 
Ultimate  Atari  reference  tool  goes  online 

GAME  OF  THE  MONTH 
18    ROULEnE,  ATARI  STYLE  by  Michael  Pemberton 
You  won't  lose  your  shirt  to  the  8-bit  croupier 

EDUCATION 
22    SPELLING  FLASHCARDS  by  Andy  Barton 

Friendly  quiz  that  kids  like  using 

FEATURE  APPLICATION 
52    REAL-WORLD  INTERFACE  by  John  Little 
An  Atari  grows  orchids  in  Texas 

8-BIT  PRODUCT  REVIEWS 
57    Celebrity  Cookbook  ,  Cheat! 

TECH  TIPS 
64    Boolean  Stick,  Autorun  Setup 

SOFTWARE  LIBRARY 

25     FIVE  EASY-TO-TYPE  LISTINGS 


type-in  Software  26 


type-in  Software  34 


type-in  Software  28 


Star  NX-IOOO  Rainbow.     Page  58 


7    I/O  BOARD 
9    NEWPRODUaS 
38    CLASSIFIED  ADS 


39    ADVERTISERS  LIST 
56    SHOPPERS  MARKET 
64    TECH  TIPS 
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When  you  want  to  talk  Atari 


XL/XE  HARDWARE 


CMO  SPECIAL 

Atari  800XL  $69®^ 

65XE 109.00 

130XE 149.00 

INTERFACES 


:R  Connection 59.99 

Printer  Connection 34.99 

Supra 

1150 39.99 

1151  (1200  XL)   40.99 

Xetec 

Graphlx  Interface 38.99 

Atari 

850  Interface 109.00 

XL/XE  ENHANCEMENTS 

Axlon  32K  Mem.  Board  (400/800)   .19.99 

Atari  80  Column  Card 74.99 

ICD 

BBS  Express  (ST) 52.99 

Sparta  DOS  Construction  Set 28.99 

US  Doubler/Sparta  DOS 47.99 

Real  Time  Clock 48.99 

,,^mbo    XL 28.99 

ifuS    Doubler 28.99 

MODEMS 

Atari 

SX212  300/1200  (ST)   79.99 

XMM301 46.99 

Anchor 

VM520  300/1200  ST  Dir.  Con 109.00 

Avatex 

1200  HC 89.99 

2400 169.00 

Supra 

2400  Baud  XL/XE  or  ST 159.00 

2400  Baud  (no  software) 139.00 

MONITORS 

Magnavox 

CM  8505  14"  Composite/RGB/TTL  . .  .189.00 


ST  HARDWARE 


Call  For  Current  Information 
On  The  Entire  ST  Line! 


PRINTERS 


ATARI  SMI 224 
RGB/Color  Monitor 

520ST  FM  RGB/Color  System. 
SMI 24  Monochrome  Monitor.  . 


$329 

.829.00 
.179.00 


A  ATARI 


XF551 

DISK  DRIVE 


CMO  PACKAGE  EXCLUSIVE 
Atari  800XL  &  XF551  Drive 

w/5  Undocumented  ROMS  Asteroids,  Defender, 
Missile  Command,  QIX,  Star  Raiders       COCO 


DRIVES 


Atari 

ST  314  DS/DD 219.00 

XF551  Drive  (XL/XE)    179.00 

SHD204  20  Meg  Hard  Drive Call 

I.B. 

51/4"  40  Track  (ST) 219.00 

51/4"  80  Track  (ST) 279.00 

LCD. 

FA»ST  20  Meg 629.00 

FA'ST  30  Meg 849.00 

FA«ST  Dual  Hard  Drives Call 

Indus 

GTS  100  31/2"  DS/DD  (ST) 189.00 

GT  1000  5V4"  DS/DD  (ST) 209.00 

GT  Drive  (XL/XE) 179.00 

Supra 

FD-10  10MB  Removable  Floppy. 859.00 

30  Meg  Hard  Drive  (ST) 649.00 

CALL  FOR  DISKETTE  SPECIAL 


AIAR 

Atari  1020  Printer       *.^„„ 
40  Col.  Color  31999 

Atari 

1027  Letter  Quality  XL/XE 69.99 

XDM121    LQ  (XL/XE) 189.00 

XM-M801  XL/XE  Dot  Matrix 189.00 

Brother 

M-1109  100  cps  Dot  Matrix 169.00 

M-1509  180  cps  Dot  Matrix 359.00 

HR-20  22  cps  Daisywheel 349.00 

Citizen 

120D  120  cps  Dot  Matrix    159.00 

180D  180  cps  Dot  Matrix    179.00 

Premier-35  35  cps  Daisywfieel  .  .549.00 
Epson 

LX-800  150  cps,  80  col 189.00 

FX-850  264  cps,  80  col Call 

LQ-500  180  cps,  24-wire Call 

LQ-850  330  cps,  80  col Call 

NEC 

P2200  pinwriter  24-wire 379.00 

Okidata 

Okimate  20  color  printer 129.00 

ML-182  +120  cps,  80  column   .  .229.00 

ML-390  +270  cps,  24-Wire 539.00 

Panasonic 

KX-P1080i  144  cps,  80  col 169.00 

KX-P1091i  194  cps,  80  col 199.00 

Star  Micronlcs 

NX-1000  140  cps,  80  column  .  .  .179.00 

Toshiba 

P321-SL  216  cps,  24-wire 499.00 

Allsop  Disk  Holders 

Disk  File  60-51/4" 9.99 

Disk  File  30-3V2" 9.99 

Curtis 

Emerald   39.99 

Safe  Strip 19.99 

Universal  Printer  Stand 14.99 

Tool  Kit 22.99 


ACCESSORIES 


y 


Your  Source  for  Hardware,  Software  &  Peripherals 


.you  want  to  talk  to  us. 


SPECIALS  XL/XE 


#AAB822P  822  Printer  Paper $2.49 

#AA14746  T.V.  Switch  Box 2.49 

#AA4010    Tic-Tac-Toe 4.99 

#AA4011  Star  Raiders 3.99 

#AA4012  Missile  Command 3.99 

#AA4013    Asteroids 4.99 

#AA4022  Pac  IVIan 4.99 

#AA4025    Defender 4.99 

#AA4027  QIX 4.99 

#AA4102  Kingdom  (Cass.) 1.99 

#AA4112  States  &  Capitals  (Cass.).  1.99 

#AA4121  Energy  Czar 1.99 

#AA4123  Scram  (Cass.) 1.99 

#AA4126  Speed  Reading 2.99 

#AA4129  Juggle's  Rainbow 1.99 

#AA415  File  Manager 8.99 

#AA4204  1020  Color  Pens 1.99 

#AA5047  Timewise  (D) 3.99 

#AA5049  Visicalc  (D) 24.99 

#AA5050  Mickey  Outdoors 5.99 

#AA5081  Music  Painter  (D) 9.99 

#AA6006  Counseling  Procedure.  .  .  .1.99 
#AA7102  Arcade  Champ  (No  J.  Stk)6.99 

#AA8030  E.T.  Phone  Home 3.99 

#AA8048  Millipede 4.99 

Access 

Leaderboard  Golf 22.99 

Accolade 

Hardball 21.99 

Activision 

Hacker  ll/Music  Studio  (ea.) 28.99 

Antic 

Flash 21.99 

Avant  Garde 

PC   Ditto 59.99 

Batteries  Included 

Degas    Elite 37.99 


ST  SOFTWARE 


Cygnus 
Starfleet  I 


$3299 


CLOSEOUTS  XL/XE 


ROM  CARTS  (XL/XE) 
$299  ea  or  5  for  51399 


Loose/Undocumented 

Choose  from:Bpace  Invaders,  Star 

tiders.^ssile  Coimnand,^Ssteroids, 
c  ManTEalaxian^^efender,  QIX, 
per  Breakout,  E.T.,  Eastern  Front, 
botron. 
Rocklyn 

Gorf 2.99 

Anti-Sub    (Disk) 2.99 

Journey  to  Planet 2.99 

Atari  Program  Exchange 

10  Different  Cassettes  For $11.99 


ST  SOFTWARE 


Data  East 

Speed  Buggy 25.99 

Epyx 

Auto    Duel 31.99 

Dive  Bomber 29.99 

Firebird 

Jewels  of  Darkness 19.99 

The  Sentry/Tracker  (ea.) 12.99 

FTL 

Dungeonmaster 29.99 

Metacomco 

ISO    Pascal 59.99 

Michtron 

Leatherneck 29.99 

Microprose 

Gunship 28.99 

F-15  Strike/Silent  Service  (ea.).  .  .24.99 
Miles  Software 

ST    Wars 24.99 

Mindscape 

High    Roller 31.99 

Mark  Williams 

C 119.00 

Paradox 

Wanderer  (3D) 24.99 


SPECIALS  XL/XE 


Access 

Leaderboard  Golf 13.99 

Accolade 

Fight    Night 19.99 

Atari 

Atariwriter  Plus 35.99 

Broderbund 

Printshop 26.99 

Datasoft 

Alternate  Reality  (City) 23.99 

221   Baker  St 20.99 

Electronic  Arts 

Pinball  Construction 15.99 

Firebird 

Silicon  Dreams 15.99 

Jewels  of  Darkness 15.99 

Microprose 

Top    Gunner 14.99 

F-15  Eagle  Strike 22.99 

Origin  Systems 

Ultima    4 36.99 

Strategic  Simulations 

Gemstone   Warrior 1 1 .99 

Sublogic 

Flight   Simulator 34.99 


ST  SOFTWARE 


Progressive  Computer 

Graphic  Artist  1.5 109.00 

Psygnosis 

Barbarian 25.99 

Soft  Logik  Corp. 

Publishing  Partner 54.99 

Strategic  Simulation 

Questron   II 35.99 

Timeworks 

Swiftcalc/Wordwriter (ea.)   43.99 

Desktop   Publisher 79.99 

Unison  World 

Printmaster  Plus 25.99 


Word  Perfect 


$159 


In  U.S.A. 


MMC 


Call:  1-800-233-8950 

In  Canada  call:  1-800-233-8949    All  Other  Areas  call:  717-327-9575    Fax:  717-327-1217 

Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-221-4283 

CMO,  101  Reighard  Ave.,  Dept.  B6,  Williamsport,  PA  17701 


OVER  350.000  SATISFIED  CUSTOMERS    •    ALL  MAJOR  CREDIT  CARDS  ACCEPTED    •    CREDIT  CARDS  ARE  NOT  CHARGED  UNTIL  WE  SHIP 


POLICY:  Add  3%  (minimum  $7.00)  shipping  and  handling.  Larger  shipments  may  require  additional  charges.  Personal  and  company  checks  require  3  weeks  to 
clear.  For  faster  delivery,  use  your  credit  card  or  send  cashier's  check  or  bank  money  order.  Credit  cards  are  not  charged  until  we  ship.  Pennsylvania  and 
Maryland  residents  add  appropriate  sales  tax.  All  prices  are  U.S.A.  prices  and  are  subject  to  change,  and  all  items  are  subject  to  availability.  Defective  software 
will  be  replaced  with  the  same  item  only.  Hardware  will  be  replaced  or  repaired  at  our  discretion  within  the  terms  and  limits  of  the  manufacturer's  warranty.  We 
cannot  guarantee  compatibility.  All  sales  are  final  and  returned  shipments  are  subject  to  a  restocking  fee.  We  are  not  responsible  for  typographic  or  photographic 
errors. 


B602 


YOU  ASKED  US  TO  BRING  BACK  THE  SAVINGS- 

The  Newsroomls  now 
sale  priced  for  yourS-bit  Atari' 

The  Newsroom  includes  everything 
you  need  to  create  great  looking 
newsletters:  Choose  from  over  600 
pieces  of  clip  art  •  Modify  clip  art  or 
create  your  own  with  powerful  drawing 
tools  •  Use  the  built-in  word  processor 
to  write  in  any  of  five  fonts  •  Change 
your  page  easily-text  automatically 
wraps  around  pictures  to  simplify 
layout  and  editing  •  Add  Clip  Art 
Collection™  Volumes  for  truly 
professional  results! 

Over  350,000  families,  schools  and 
businesses  are  using  the  Newsroom 
to  tell  their  story.  Now  if  s  your  turn. 


SAVE  up  to  $70  (over  50%!) 
on  The  Newsroom  and  Clip 
Art  Collection '  Volumes. 

•  Clip  Art  Collection  Volume  1: 

Over  600  pieces  of  all  occasion  art. 

•  Clip  Art  Collection  Volume  2: 
Over  800  pieces  of  business  art. 

•  Clip  Art  Collection  Volume  3: 

Over  600  pieces  of  sports  and 
recreation  art. 


Suggested  Retail       Special  Offer      You  Save 


Mix  text  and  graptiics  in  two-column 
layouts  with  dramatic  fuli-widtli  banners! 

Product(s) 


The  Newsroom  •^49.95/  $39.95  $10.00 

The  Newsroom  +  any  1  Clip  Art  Vol.  \m)  $49.90  30.00 

The  Newsroom  +  any  2  Clip  Art  Vols.  jMsS  $59.85  50.00 

The  Newsroom  +  all  3  Clip  Art  Vols.  /n39\)  $69.80  70.00 

Each  Clip  Art  Colleclion  Volume  has  a  suggested  retail  value  ol  $29.95.  The  Newsroom  antl  Clip  Art  Collections  are  available  tor 
these  Atari  8-hit  computers:  800XL.'"  130XE/"  65XE.'"  Atari  1050'"  or  compatible  disk  drive  required. 

To  order  by  phone,  call  toll-free: 

1-800-4454780,  ext.  3021 

Phone  orders  accepted  8:30  a.m-4;00  p.m.  Monday-Friday  Central  lime  (VISA/Maslercard  only). 

Ask  for  'The  Newsroom  Atari  Oiler."  30-day  money-back  guarantee! 

This  is  an  exclusive  offer  directly  from  Springboard.  This  offer  ends  Fetiruary  28, 1989. 


TO  OHDER  BV  MtlL 

CompleIG  the  order  term  aod  mail  il  with  payment  lo: 
Springboard  Soltware 
7SD8  CreekndgE  Circle 
Mpls..  m  55435 

FOBM  NO.  30Z1     Otier  expires  February  28. 1989 


Address  (No  RO.  Box)  _ 
City 


_Zip_ 


Checl<ltie  Atari  8-Bit 
offer  you  want 

Check  the  volumB(s)  you  want 

You  pay 
only 

Write  in 
your  price 

Clip  Art  Vol.1 
C1011 

Clip  Art  Vol.  2 
C1012 

Clip  Art  Vol.  3 
C1013 

n  Tlie  Newsroom  only  N1010 

$39,95 

D  Tlie  Newsroom  +  1  Clip  Art 

$49.90 

P  The  Newsroom  +  2  Clip  Arts 

$59.85 

a  The  Newstoom  +  3  Clip  Arts 

$69.80 

Please  check  one-                                                                                                                                     SUBTOTAL 

D  CtiecWMoney  Order  (Payable  to  Springboard)  D  VISA  D  MasterCard  U  School  RO.  Attached         mN  residents  add  6%  sales  tax 

narri  Nn                                                                                             Fyn  Hatfi 

lipping  (ee  per  order 
d  total  in  U.S.  Dollars 

$5.00  or  $15.00- 

■ 

(dran 

Signature  (required) 

'U.S.  &  Canada  add  S5.00  for  shlppina  &  )iandlina-all  Dtliers  add  S15.011 


IMPORTANT  INFDRMnTIDN:  Copy  Itiis  lorm  far  additional  orders.  Springboard  accepts  orders  by  phone  or  mail  in  U.S.  dollars  only.  Orders  Iram  oulside  the  U.S.  accepted  wilh  VISA, 

MasterCard  or  international  money-orders  only.  Sorry,  no  cash.  C.D.D.  or  P.O.  boxes  accepted.  Please  allow  Z-3  weeks  lor  delivery,  sligtitly  tanger  lor  orders  outside  U.S. 

Call  1-800-445-4780  or  |61Z|  944-3915  with  questions. 

Springboard.  The  Newsroom  and  Clip  Art  Collection  are  tndemarks  or  registered  IrBdemarlis  ol  Springboard  Soltware,  Inc.  Atari  800XL.  1050,  B5XE  and  I30XE  are  trademarks  or 
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EDITORIAL 


I/O  BOARD 


YOUR  100%  8-BIT  MAGAZINE 

Antic  isn't  just  talking  about  keeping  the  Atari  8-bit 
market  alive,  we're  doing  something  new  about  it  virtually 
every  month. 

Last  month's  Antic  announced  that  our  8-bit  Arcade 
Catalog  was  back,  bigger  than  ever  and  even  featuring 
reissues  of  top  commercial  software  which  had  gone  out 
of  print.  In  this  issue  we  proudly  announce  the  arrival  of 
the  8,500-page  Antic  Index  on  CompuServe's  ANTIC 
ONLINE.  The  fast,  friendly  Antic  Index  database  will  enable  you  to  find  out 
which  1982-88  issue  contained  just  about  any  Antic  article,  program,  or  review. 

For  years.  Antic  readers  have  been  asking  for  a  complete  index  to  this 
magazine's  back  issues.  Now  that  long-awaited  reference  tool  is  here.  And  it's 
even  more  than  readers  would  have  expected,  because  it  draws  on  the  full  power 
of  CompuServe's  mainframe  computers.  The  Antic  Index  is  the  result  of  months 
of  work  by  Charles  Jackson,  our  Technical  and  Online  Editor,  whose  article 
this  month  explains  how  easily  you  can  find  exactly  what  you're  looking  for 
in  the  Antic  back  issues. 

Not  only  does  the  Antic  Index  provide  fast  references  to  the  correct  back 
issue — many  of  the  complete  stories  are  available  online  for  downloading. 

Antic  still  believes  in  the  future  of  the  Atari  8-bit  market  and  we're  proving 
it  by  our  actions — even  at  a  time  when  so  many  others  have  fallen  by  the 
wayside.  Starting  with  this  issue.  Antic  has  returned  to  being  an  all  Atari  8-bit 
magazine  and  disk  for  the  first  time  since  May  1985- 

In  response  to  overwhelming  reader  demand,  all  ST  coverage  is  being 
switched  out  of  Antic  into  our  ST-only  sister  publication  START.  (ST-owning 
Antic  subscribers  can  transfer  their  subscriptions  to  START.)  Undoubtedly  you 
have  noticed  that  the  Antic  Magazine  you  now  hold  is  thinner  than  the  previ- 
ous four  issues,  and  is  staple-bound  like  the  three  issues  from  last  summer  But 
this  should  cause  only  slight  change  for  8-bit  owners,  because  the  pages  that 
were  cut  are  the  ST  Resource  section. 

Why  did  we  start  reducing  the  number  of  pages  in  Antic  this  month?  Antic 
Publishing  is  an  independent  business  and  this  magazine  must  make  a  fair  profit 
in  order  to  keep  going — we  certainly  don't  get  any  subsidy  money  from  Atari. 
Antic  Magazine  can  still  remain  profitable  at  this  smaller  size,  covering  8-bit 
Atari  computers  exclusively,  with  present  amounts  of  readers  and  advertisers. 

The  catch  is  that  the  number  of  8-bit  advertisers  has  been  dropping  all  along, 
so  Antic  must  look  for  a  higher  level  of  reader  support.  In  order  for  Antic 
to  keep  on  finding  new  ways  to  do  the  job  for  your  8-bit  Atari,  you  need  to 
subscribe  for  12  issues  of  Antic  Magazine  plus  disk  for  only  S59.95.  (Or  upgrade 
your  magazine-only  subscription  to  include  the  disk.) 

Packed  with  172K  of  high-quality  Atari  programs  and  graphics,  each  double- 
sided  Antic  Disk  is  an  unequaled  8-bit  software  value.  This  month's  disk  features 
every  type-in  program  from  the  issue — plus  Mandala  Movies,  a  hypnotically 
colorful  kaleidoscope  construction  set,  and  a  series  of  highly  detailed  pictures 
created  with  this  issue's  Hard-Wired  Ray  Tracing  program. 


Nat  Friedland 
Editor,  Antic 


ADDING  SOME  ZIP 

I'd  like  to  speed  up  my  Atari  130XE.  I  no- 
tice that  Apple  II  owners  can  upgrade  their 
6502  CPUs  to  65CO2,  or  a  new  product 
called  the  Zip  Chip.  I've  heard  that  the 
65802  is  also  pin-compatible.  Can  any  of 
these  microprocessors  be  used  in  my 
I3OXE,  and  is  it  just  a  matter  of  swapping 
one  chip?  Will  I  see  any  performance  im- 
provement in  such  things  as  integer  or 
floating-point  calculations,  memory  read/ 
writes  or  disk  I/O?  What  kinds  of  prob- 
lems might  arise  other  than  games  running 
too  fast? 

James  Johnson 
Cambridge,  MN 

We  asked  Contributing  Editor  Matt  Rat- 
cliff  about  this  and  got  tfje  following  re- 
ply: "GEnie  has  an  extremely  long  tijread 
on  the  subject  of  faster  6502s — even 
though  it's  been  established  that  this  is  vir- 
tually impossible  to  do  on  an  8-bit  Atari. 
And  even  if  you  got  all  the  Atari's  chips 
and  operating  system  to  handle  a  differ- 
ent microprocessor,  what  good  is  it?  Only 
the  software  that  you  write  yourself  will 
work  with  «Y."— ANTIC  ED 


NX-1000 

After  reading  the  review  of  Star  Micronics' 
NX-1000  printer  (Antic,  May  1988),  I  had 
reservations  about  such  an  inexpensive 
printer  living  up  to  its  advertisements,  but 
I  bought  one  anyway. 

I  can  only  say  that  this  printer  has  to 
be  one  of  the  best  bargains  around.  I've 
teamed  it  up  with  a  Supra  1150  interface 
and  the  combination  works  great.  The 
graphics  capabilities  of  this  machine  must 
be  seen  to  be  believed. 

I've  used  it  with  Print  Shop,  Newsroom, 
AwardWare  and  PaperCIip  with  no  prob- 
lem at  all.  It  uses  the  same  codes  as  the 
Epson  LX80 — and  does  just  as  well,  if  not 
better.  For  the  price,  this  has  to  be  one  of 
the  best  printers  around  for  8-bit  users. 
Thorvald  Ripley 
Redondo  Beach,  CA 


FEBRUARY  1989 


I/O  BOARD 


REAL  REASON 


I  recently  purchased  an  Atari  65XE  with 
an  XF55I  disk  drive  and  have  noticed  that 
not  a  lot  of  new  third-party  software  is 
available  for  it.  So  I  started  phoning  soft- 
ware companies  to  see  if  they  would  start 
making  Atari  8-bit  software  as  they  do  for 
the  Commodore  64.  They  all  told  me  ba- 
sically the  same  thing — If  they  could  get 
big  orders,  they  would  produce  it.  By  "big 
orders"  they  meant  national  chains,  such 
as  Toys  R  Us  and  Child  World/Children's 
Palace.  Activision  was  the  only  company 
that  said  it  was  afraid  of  piracy. 

So  I  went  to  the  aforementioned  stores 
in  my  area  and  spoke  to  the  store 
managers,  some  of  whom  phoned  their 
district  managers,  who  said  they'd  order 
Atari  8-bit  software  if  they  got  decent 
responses  to  the  requests  for  it.  So  I  urge 
all  Atari  8-bitters  to  go  to  local  stores  as 
I  did.  Maybe  we  can  all  still  benefit  from 
new  software  for  the  8-bit. 

Robert  Urbaniak 
Williamsville,  NY 

Way  to  go!  Antic  agrees  that  this  kind  of 
grass-roots  effort  is  vital  to  the  continued 
flow  of  third-party  products  for  the  8-bit 
That's  what  the  successful  Antic  ivrite- 
in  campaigns  have  been  all  about.— 
ANTIC  ED 


NX-CEPTION 


I  must  take  exception  to  your  rather  harsh 
review  of  the  Star  NX-1000  printer  in  the 
October  1988  Antic.  I  have  used  my  NX- 
1000  Rainbow  (the  color  version)  for  two 
months  now  and  have  nothing  but  praise 
for  its  quality  and  many  special  features. 

1  do  agree  that  the  rear  cover  can  be  dif- 
ficult to  remove,  but  I  put  a  little  silicon 
on  the  two  tabs  that  hold  it  in  place,  and 
that  has  helped  a  lot.  As  for  the  front  cover, 
how  can  you  "expect"  it  to  be  one  way 
or  the  other?  Each  of  my  previous  three 
printers  was  unique  in  this  respect. 

1  find  the  loading  of  fanfold  paper  to 
be  no  more  difficult  than  on  my  previous 
printers,  and  I  have  yet  to  experience  the 


paper  popping  out  of  the  sprockets.  (Did 
you  raise  the  clamp  levers  to  lock  the 
sprocket  units?)  What's  more,  there  is 
much  less  need  to  bother  with  loading  and 
unloading  fanfold  paper.  With  the  paper 
parking  feature,  you  can  automatically 
draw  the  fanfold  paper  out  of  the  way,  in- 
sert and  type  on  single-sheet  letterhead  or 
envelopes  and  then  reposition  your  fan- 
fold  paper,  all  without  removing  the  rear 
cover  or  removing  the  paper  from  the 
sprockets. 

I  never  waste  a  sheet  of  paper  between 
printouts.  If  you  start  printing  at  the  very 
top  of  the  form,  you  do  have  to  stand  by 
to  make  sure  that  the  first  sheet  gets  tucked 
behind  the  paper  bail,  but  this  isn't  dif- 
ficult. 

The  quality  of  the  NLQ  printing  is  so 
good  that  1  really  don't  mind  waiting  a  few 
extra  seconds.  I  especially  appreciate  that 
it's  available  with  any  print  pitch.  Had  I 
read  your  review  before  purchasing  my 
new  Star,  1  probably  would  not  have  cho- 
sen it.  So  I'm  glad  my  Antic  arrived  after 
the  fact. 

Carolyn  Hoglin 
Orlando,  FL 

Reviewer  Gregg  Pearlman  replies:  "/ 
understand  your  point  about  the  front 
cover,  but  I  disagree.  As  it  happens,  the 
half-dozen  or  so  printers  I've  reviewed  for 
Antic  all  had  front  covers  that  went  on 
and  off  the  same  way — except  the  NX- 
1000.  So  I  guess  should  have  said  that  the 
cover  'goes  on  and  off  opposite  from  what 
I  expected. '  On  the  other  hand,  the  Antic 
employee  cutrently  using  the  NX-WOO  has 
removed  the  cover  altogether — evidently 
he  doesn't  want  to  deal  with  the  hassle 
either. 

'Antic's  NX  unit  showed  the  problems 
described  in  my  review  while  I  was  us- 
ing the  printer.  As  for  wasting  a  sheet  of 
paper,  why  should  you  have  to  make  sure 
the  next  page  is  tucked  behind  the  bail? 
On  our  previous  Star  printers  (NL-10,  NR- 
10,  etc.)  you  don't  have  to.  Essentially, 
what  my  review  said  was  not  that  the  NX- 
1000  was  a  bad  printer;  but  that  it  wasn  't 
the  right  printer  for  a  user  like  me.  — 
ANTIC  ED 


PAPERCLIP  QUERY 


Has  anyone  ever  figured  out  a  way  to  use 
PaperCUp  with  a  FingerPrint  chip  printer? 
I  have  an  Epson  RX-8G  with  a  LetterWriter 
chip  system  in  it  and  I  have  not  been  able 
to  access  the  LetterWriter  features  from 
Paperclip.  Electronic  Arts  was  unable  to 
help  me,  so  I'm  turning  to  you. 
Glen  Bergstedt 
San  Diego,  CA 

Sorry,  we  never  tested  that  hardware,  so 
ive'll  have  to  pass  your  question  to  the 
readers  Anybody  got  ideas?— MA^\C  ED 


Antic  welcomes  your  feedback,  but 
we  regret  that  the  large  volume  of  mail 
makes  it  impossible  for  the  Editors  to 
reply  to  everyone.  Although  we  do 
respond  to  as  much  reader  correspon- 
dence as  time  permits,  our  highest  pri- 
ority must  be  to  publish  I/O  answers 
to  questions  that  are  meaningful  to  a 
substantial  number  of  readers 

Send  letters  to:  Antic  I/O  Board, 
544  Second  Street,  San  Francisco, 
CA  94107. 
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ANTIC,  THE  ATARI  RESOURCE 


NEW  PRODUCTS 


POWER  DRESSING 

(t-shirts) 
Computer  Lust 
P.O.  Box  61734 
Honolulu,  HI  96839 
(808)  988-5979 
S15 

Power  Dressing  is  Computer  Lust's 
new  line  of  a  dozen  zany,  witty  and 
arty  silkscreened  T-shirts  which  target 
the  computer  industry  and  users.  The 
humorous  designs  include  such  pun- 
filled  titles  as  "Good  to  the  last  Byte," 


"BASIC  Training,"  "Getting  Loaded" 
and  "RAM-bo".  Write  for  a  descriptive 
brochure.  For  your  company  or  user 
group's  promotional  giveaways.  Com- 
puter Lust  wUl  also  personalize  shirts 
with  a  company  name  or  logo,  or  even 
create  a  customized  design. 


AUTOPREP  ^^HBia^^H 

(disk  formatter) 
Helpways 
P.O.  Box  H 
Rochester,  NY  14623 
(716)  334-3928 
S  17.45,  16K  disk 

AutoPrep  automatically  formats  any 
number  of  blank  disks  in  single  or 
dual  density  and  writes  your  choice  of 
DOS  and  AUTORUN  files  to  them.  The 
entire  effortless  process  is  much  sim- 
pler than  doing  it  from  Atari  DOS. 
Price  above  includes  $2.50  shipping. 


TURBOWORD, 
TURBOBASE  80 

(word  processor,  database) 
MicroMiser  Software,  Inc. 
1635-A  Holden  Avenue 
Orlando,  FL  32809 
(305)  857-6014 
48K  disk 

Turboword  ($49)  is  a  word  processor 
for  the  Atari  XEPSO's  80-column 
screen.  DOS  2.5  and  SpartaDOS  com- 
patible, its  features  include  automatic 
formatting,  mail  merge,  macros,  spell- 
ing checker,  auto  RAMdisk  load  and 
formfeed  for  laser  printers. 

Also  utilizing  the  XEP8G,  Tbrbo- 
base  80  ($179)  works  like  the  original 
database,  but  with  the  80  column 
screen  making  output  formats  more 
readable  and  easier  to  create.  Turbo- 
base  80  interfaces  with  Turboword. 
Owners  of  Turbobase  can  upgrade  for 
$39. 


DIAMOND  ^^^^i^^^ 

(operating  system) 
USA  Media 
7810  Malcolm  Road 
Clinton,  MD  20735 
(301)  868-5494 
$29.95  each,  64K  disk 

Developed  by  Reeve  Software  and  now 
brought  out  by  USA  Media,  Diamond 
OS  brings  a  complete  windowing 
graphics  operating  environment  to 
your  Atari  XL/XE/GS— just  like  the  ST, 
says  USA  Media.  Use  the  ST  mouse, 
Atari  joystick,  touch  tablet,  trackball, 
or  cursor  keys  to  activate  a  pointer. 
Diamond  lets  you  use  icons,  windows, 
drop-down  menus,  dialog  boxes  and 
desk  accessories.  Diamond  can  even 
access  up  to  16  megabytes  of  memory, 
for  those  who've  been  wondering 
what  to  do  with  their  upgraded  8-bits. 
The  disk  version  already  available  re- 
quires 64K  memory.  An  enhanced  car- 
tridge version  requiring  only  48K  is 
scheduled  to  be  released  in  November 
1988. 

Diamond  OS  is  the  first  release  in 
the  ST,  Jr.  line  and  will  be  required 


for  using  the  other  programs  including 
Diamond  Paint,  a  paint  program 
complete  with  draw,  block  move,  line, 
k-line,  box,  circle  and  airbrush  features. 
Diamond  Paint  also  accepts  Degas  pic- 
tures from  the  ST  and  MacPaint  pic- 
tures. Diamond  "Write  is  a  word 
processor  that  includes  cut  and  paste,  a 
complete  spell  checker,  and  an  80- 
column  display.  Diamond  Publish  is 
a  desktop  publishing  system  that  cre- 
ates text  wrap-around  graphics,  text 
flow  from  column  to  column,  and 
works  with  multiple-page  documents. 
Diamond  Programmer's  Kit  in- 
cludes complete  documentation  for  the 
Diamond  environment  and  a  resource 
editor  that  simplifies  the  creation  of 
icons,  drop-down  menus,  and  dialog 
boxes.  Programming  samples  in  both 
BASIC  and  assembly  language  are  also 
included  in  the  kit. 


SFP  ^Mi^^H^iHi^H 

(utility  programs) 

SEP 

4  Forest  Drive 

Palmyra,  VA  22963-2118 

$21.95,  48K  disk 

SFP  is  a  set  of  utility  programs  for  use 
with  Broderbund's  SynFile-F  file 
management  system.  Using  the  SFP 
utility  programs  you  can  create,  save 
and  produce  reports  in  either  list  or  la- 
bel format;  print  or  display  the  struc- 
ture of  a  SynFile+  file;  modify  look-up 
tables;  alter  values  associated  with  rec- 
ord number  and  counter  fields;  change 
justification  of  any  data  item  and  re- 
cover deleted  records.  SFP  comes  with 
DOS  2.5  and  Turbo-BASIC  (64K  ver- 
sion) and  supports  the  same  densities 
as  SynFile-i-  when  used  with  appro- 
priate DOS  versions. 


New  Products  notices  are  compiled  by 
the  Antic  staff  from  information 
provided  by  the  products'  manufac- 
turers. Antic  welcomes  such  submis- 
sions, but  assumes  no  responsibility 
for  the  accuracy  of  these  notices  or  the 
performance  of  the  products  listed. 
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BACK  ISSUE 


Complete  Your  Atari  "Toolkit 


SAVE  25%  TO  35% 


How  To  Order: 


Simply  give  the  Order  Numbers  of  the 
issues  you  want,  and  include  the  letter 
corresponding  to  the  following  selections: 

A-  magazine  &  disk 
B-  magazine  only 
C-  disk  only 

Example:   lA-  is  for  "April  1983,   magazine 
&  disk" 

If  no  letters  are  indicated  in  your  order,  we 
will  automatically  send  you  the  magazine 
only  (B). 


Prices: 


Magazine  only 
Disk  only 
Magazine  &  Disk 


1  To  5  If  you  order  more 

Issues  than  5  Issues 

$7.00  each  $6.50  each 
$3.00  each  $2.75  each 
$5.00  each       $4.75  each 


Please  include  shipping  &  handling  charges: 
1  to  5  issues:   $1  for  each  issue 
6  and  over    :   $  5  plus  50c  for  each 
issue  over  5. 

FOR  ORDERS  ONLY  CALL  TOLL-  FREE 

(800)    234-7001  (7-5pm  PST.) 

MasterCard  &  Visa  Only 

Or  send  your  check  to:  ANTIC  BACK  ISSUES 
544  Second  Street  San  Francisco,  CA  94107 
California  residents  add  6  1  /2%  sales  tax. 


Back  Issue  Order  Form 


Order  #          Selection                Order  # 
A,  B,  or  C 

Selection 
A,  B,  or  C 

□  Check  Enclosed     □  VISA       □  MasterCard 

Name 

Address 

Citv                              State                  Zip 

Credt  Card  # 

Total  Issues 
Ordered: 

Exp.    Date 

Canada,   Mexico  and  all  other  foreign  add  $1. 
per  issue.    Payment  in  U.S.  funds  must 
accompany  all  foreign  orders.    California 
residents  add  6  1/2  %  sales  tax. 

^W                ^^    The  ATARI  Resource 

Total  Issues  Ordered: 

1  to  5        6  &  over: 

=  $ 
=  $_ 
=  $ 
Total  $ 

No.   Issues  of  Sel.  A: 
No.   Issues  of  Sel.   B: 
No.   Issues  of  Sel.   C: 

X  $7  ea, 
X  $3  ea. 
X  $5  ea. 

X  $6.50  ea. 
X  $2.75  ea. 
X  $4.75  ea. 

Shipping  &  han 

dling  $ 

Amount  enc 

losed  $ 

Missing  any  issues?  Looking  for  tliose  great  utilities, 

games,  and  reviews?  You'll  find  it  all  right  here! 

Copies  are  limited,  so  order  today! 


ORDER  # 


ISSUE 


1  Aprill983:Games— 3-D  Maze,  Voyeur 

2  May  1983:  Telecomputing — Microids, 

Tele  Chess 

3  June  1983:  Databases— Stargazing, 

Dancin'  Man 

4  July  1983:  Adventure  Games — Dragonsmoke, 

Shoot-em-up  Math 

5  August  1983:  Graphics— 3-D  Fuji,  Keystroke 

Artist 

6  September  1983:  Education— P/M  Tutor 

7  October  1983:  Sports  Games — AutoCassette 

8  November  1983:  Sound  &  Music — Air  Raid, 

Casting  Characters 

9  December  1983:  Buyer's  Guide — 

AUTORUN.SYS,  Automate  Player/Missiles 

10  January  1984:  Printers — Pocket  Calendars, 

Screen  Dump 

11  February  1984:  Personal  Finance— TYPO, 

Gauntlet 

12  March  1984:  International  Issue — DiskRead, 

Poker  Solitaire 

13  April  1984:  Games — Risky  Rescue, 

Math  Wizard 

14  May/ June  1984:  Exploring  XL  Computers — 

Escape  from  Epsilon,  Scroll  to  the  Top 

15  July  1984:  Communications— AMODEM, 

BASIC  Animation  Secrets 

16  August  1984:  Disk  Drives — Horseplay,  Recall 

17  September  1984:  Computer  Graphics- 

Graphics  Converter,  Olympic  Dash 

18  October  1984:  Computer  Learning — Bouncing 

Ball,  Antic  4/5  Editor/Animator 

19  Rfovember  1984:  Computer  Adventures — 

Adventure  Island,  Advent  X-5 

20  December  1984:  Buyer's  Guide — Infobits, 

Biffdrop 

21  January  1985:  Super  Utilities— TYPO  II, 

DISKIO 

22  February  1985:  Finances — Home  Loan 

Analyzer,  Drum/Bass  Synth 

23  March  1985:  Printers— Kwik  Dump,  Font 

Maker 

24  April  1985:  Computer  Frontiers — Dot  Matrix 

Digitizer,  Speech  Editor 

25  May  1985 :  New  Super  Ataris — Son  of  Infobits, 

Arena  Racer 

26  June  1985 :  Computer  Arts  —View  3  -D, 

The  Musician 

27  July  1985:  Computer  Challenges — Miniature 

Golf,  Guess  That  Song 

28  August  1985:  Telecommunications — Atari 

'Toons,  Pro*Term 

29  September  1985:  Power  Programming— 

One-Pass  Disk  Copy  130,  Crickets 


ORDER  *f 


ISSUE 


30  October  1985:  Mind  Tools— Graph  3D,  GEM 

Color  Cascade 

31  November  1985 :  New  Communications— 

TYPO  II  Double  Feature,  130XE  Memory 
Management 

32  December  1985:  Shoppers  Guide— DISKIO 

Plus,  Box-In 

33  January  1986:  Atari  Products  are  Back — 

Appointment  Calendar,  Dungeon  Master's 
Apprentice 

34  February  1986:  Printer  Power— T-Shirt 

Construction  Set,  Forth  Escapes 

35  March  1986:  Practical  Applications — Lunar 

Lander  Constructor,  Lie  Detector 

36  April  1986:  Computer  Mathematics— Fractal 

Zoom,  3-D  Fractals 

37  May  1986:  4th  Anniversary— Digital 

Gardener,  Molecular  Weight  Calculator 

38  June  1986:  Summer  Computing— Weather 

Wizard,  Bomb  Squad 

39  July  1986:  Computer  Arts— Amazing  Card 

Shuffler,  Grafcon  ST 

40  August  1986:  Online  Communications — 

Ultrafont,  Floppy  Filer 

41  September  1986:  Weather— WEFAX  Decoder 

(8-bit/ST),  BASIC  Tracer 

42  October  1986:  Hard  Disks— Video  Stretch, 

TYPO  ST 

43  November  1986:  Personal  Finance — Budget 

dataBASE,  V-Graph 

44  December  1986:  Shoppers  Guide — Stepper 

Motors,  Nuclear  Waste  Dump 

45  January  1987:  Talking  Atari— Talking 

Typewriter,  Rebound 

46  February  1987:  Word  Processing— SF 

Fogger,  Electric  Charlie! 

47  March  1987:  Dvorak  Keyboard, 

Multi-AUTORUN 

48  April  1987:  —Designer  Labels,  Taxman 

49  May  1987:  5th  Anniversary — A-Rogue,  Poker 

Slot  Machine 

50  June  1987:  Animation — Verbot  Commander, 

Citadel 

51  July  1987:  Print  Anything— Ghost  Writer, 

Your  Net  Worth 

52  August  1987:  Atari  Muscle — Sideways 

Spreadsheet,  Diamond  Dave 

53  September  1987:  Work/Play— Mighty  Mailer, 

Maximillian  B. 

54  October  1987:  Football  Predictor— Antic 

Prompter  (8-bit/ST),  Spelling  Checker 

55  November  1987:  Practical  Applications — 

Critical-Path  Projects,  WYSIWYG  Cassettes 

56  December  1987:  Print  Holiday — P.  S.  Envelope 

Maker,  Antic  Publisher 


DISK  BONUS 


MANDALA  MOVIES 


Kaleidoscope  Construction  Set.  By  Mike  McFarlane 


Mandala  Movies,  this 
month's  Super  Disk 
Bonus,  is  an  addic- 
tively  creative  kaleido- 
scope construction  set.  Using  sim- 
ple keyboard  and  joystick  com- 
mands, you  can  effortlessly  create  an 
infinite  number  of  fascinating  de- 
signs that  flow  hypnotically  in  ever- 
varying  patterns. 

The  fascinated  Antic  editorial 
staff  had  a  great  time  testing  the  pos- 
sibilities of  Mandala  Movies  setting 
kaliedoscope  patterns  flowing 
across  the  monitors  at  unoccupied 
workstations  for  hours  at  a  time. 
One  Antic  art  department  staffer 
was  enthusiastic  about  using  the 
vivid  colors  and  striking  patterns  of 
Mandala  Movies  to  design  quilts  or 
embroidery  patterns.  You  can't  save 
or  print  designs,  but  you  can  freeze 
the  screen  image  and  photograph  it. 
Mandala  Movies  is  programmed 
entirely  in  speedy  (but  hard-to-type) 
machine  language.  Author  Mike 
McFarlane  did  an  excellent  job  with 
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this  highly  artistic  program.  But,  for 
reasons  that  would  take  too  long  to 
explain  here,  unfortunately  Antic 
does  not  have  McFarlane's  current 
address.  We  believe  he  lives  in  the 
Eugene,  Oregon  area  and  we'd  love 
to  hear  from  him,  or  from  anyone 
who  knows  where  to  find  him,  so 
we  can  send  Mike's  author  fee. 

USING  THE  PROGRAM 

Use  DOS  command  O  to  copy  the 
MANDALA.EXE  file  to  another  disk 
that  includes  the  DOS.SYS  file.  Don't 
attempt  to  run  Mandala  Movies 
directly  from  the  monthly  Antic 
Disk.  Use  DOS  command  E  to  re- 
name MANDALA.EXE  to  AUTO- 
RUN.  SYS.  Turn  off  your  computer 
and  remove  all  cartridges.  Place  the 
disk  in  drive  1.  If  you're  using  an  XL 
or  XE,  hold  down  the  [OPTION]  key 
while  you  turn  on  your  computer. 
Mandala  Movies  will  load  and  run 
automatically. 

After  a  short  demonstration  run, 
you  can  start  experimenting  with 
Mandala  Movies.  Follow  the  on- 
screen prompts  for  instructions. 
With  just  a  few  keystrokes  and  a 
nudge  of  the  joystick  you  can  pro- 
duce striking  kaleidoscope  patterns 
that  will  amaze  your  friends. 

Mandala  Movies  operates  in  GTIA 
mode  10,  letting  you  work  with 
eight  colors  in  your  design,  plus  one 
color  for  the  background.  In  Color 
Selection  mode  you  can  adjust  the 
colors  to  your  liking,  and  even  watch 


your  current  pattern  change  while 
you  experiment  with  new  colors. 
After  you  have  an  image  you  like, 
you  can  start  it  scroUing  across  the 
screen  in  several  patterns  for  an  en- 
tertaining visual  display. 

Your  February  1989  Antic  Disk — 
featuring  Mandala  Movies  as  well  as 
every  type-in  program  from  this 
issue — ^will  be  shipped  to  you  within 
24  hours  after  receiving  your  order 
Just  phone  Toil-Free  to  the  Antic 
Disk  Desk  at  (800)  234-7001.  The 
monthly  disk  is  only  $5.95  (plus  S2 
for  shipping  and  handling)  on  your 
Visa  or  MasterCard .  Or  mail  a  $  5  ■  9  5 
check  (plus  $2  shipping  and  han- 
dling) to  Antic  Disk  Desk,  544  Sec- 
ond Street,  San  Francisco,  CA  94107. 

Programmers:  Antic  wants  to  see 
your  most  ambitious  programs,  even 
those  too  large  or  complex  for  print- 
ing as  a  type-in  listing.  High-quality 
programs  in  any  language  that  has 
a  runtime  version  are  now  eligible 
for  consideration  as  a  Super  Disk 
Bonus.  A 


12 


ANTIC.  THE  ATARI  RESOURCE 


ONLINE 


Ultimate  Atari  reference  tool  goes  online. 

Antic  Index 


By  Charles  Jackson,  Antic  Technical  and  Online  Editor 


Introducing  the  Antic  Index, 
newest  addition  to  ANTIC 
ONLINE    and    Compu 
Serve.  The  Antic  Index 
is  the  most  comprehensive 
guide  to  back  issues  of  ^^ 

Antic  and  START.  If  the 
Antic    Index    was 
published  as  a  book, 
it    would    contain 
more    than    8,500 
pages  of  product  re 
views,  new  prod- 
uct   announce- 
ments,   I/O   letters, 
programming   tutor- 
ials,  feature  articles 
and  news  bulletins. 

Need  Atari  in- 
formation's;?? It's  all 
just  seconds  away.  Find  it 
in  the  Antic  Index,  the  larg 
est,  fastest  electronic  guide  to 
information  about  your  Atari.  And 
best  of  all,  there's  no  extra  fee. 
You  pay  only  standard  CompuServe 
connect  charges.  There's  never  any 
extra  fees  or  surcharges  for  using  the 
Antic  Index.  Just  type  GO  ANTIC  and 
select  menu  choice  10,  The  Antic 
Index. 

The  Antic  Index  is  primarily  an 
electronically  searchable  database 
covering  every  article  ever  published 
in  Antic,  from  the  1982  first  issue  till 
the  beginning  of  1989 — plus  most 
articles  from  ST\RT.  But  the  Index  is 
also  a  library  as  well  as  a  database.  So 


far,   you 
can    actually 
download  some 
20%   of  the  com- 
^•'^A'        plete   Antic    articles, 
'^^^    perhaps  half  of  the  com- 
plete START  text,   and 
many  original  major  features  from 
ANTIC  ONLINE  such  as  Tim  Oren's 
Professional  GEM  columns  and  Chris 
Crawford's  Assembly  Language  tu- 
torials. 

The  Antic  Index,  currently  at  the 
seven  megabyte  mark,  is  an  ongoing 
project  of  ANTIC  ONLINE.  Every 
week  we'll  be  adding  more  and  more 
information  from  old  and  new  issues 
of  START  and  Antic.  The  Antic  Index 
is  an  all-text  reference  service,  so  it 


cannot  contain  any  pho- 
tographs, diagrams,  adver- 
tisements or  program  list- 
ings. If  you  need  to  see  a 
diagram  or  use  a  program, 
you  can  order  S3  back 
magazines  or  $5  back 
disks  from  the  Antic  Disk 
Desk.  Just  phone  (800) 
234-7001  with  your  Visa 
or  Mastercard  order,  or  see 
the  ad  in  this  magazine  for 
details  on  a  magazine/disk 
back  issue  special  offer 

If  you  ever  needed  a 
clear  programming  tu- 
torial, a  helpful  product 
review,  or  just  a  fun  game 
from  Antic  or  START  back  issues, 
there  used  to  be  only  one  way  to  find 
it.  Slide  out  your  box  of  old  maga- 
zines, start  with  the  most  likely- 
looking  issue,  search  through  each 
page.  If  you  never  missed  or  lost  an 
issue  and  if  you  know  exactly  what 
you're  looking  for,  you'll  probably 
find  the  information  you  need.  You'll 
also  be  quite  a  bit  older  than  when 
you  started. 

Now  there's  an  easier  way.  In  a  few 
seconds,  the  Antic  Index  can  find 
your  article,  right  down  to  the  page 
number  In  many  cases,  the  index  also 
contains  the  complete  text  of  the  ar- 
ticle. Just  "capture"  the  information 
you  need.  There's  nothing  simpler  or 
faster  Let  the  Antic  Index  be  your  first 
stop  ^vhen  you  need  Atari  information 
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fast.  It'll  probably  be  the  only  stop 
you  need. 

ELEVEN  WAYS  TO  SEARCH 

If  you  ever  used  a  card  catalog  to 
find  a  library  book,  you'll  have  very 
little  trouble  using  the  Antic  Index.  A 
typical  card  catalog  offers  two  ways 
to  find  a  book — by  author  and  by  sub- 
ject. The  Antic  Index  gives  you  eleven 
ways  to  find  an  article.  You  can  search 
by: 

1  Author's  Name 

2  Month  of  Publication 

3  Year  of  Publication 

4  Subject 

5  '*See  a  List  of 
Subjects/Search* 

6  Department 

7  *See  a  List  of 
Departments/Search'* 

8  Progranuning  Language 

9  Program  Name 

10  Article  Title 

1 1  Magazine  Title 

Use  the  Author's  Name  option  to 


Use  the  Subject  option  to  find  all 
articles  written  by  about  a  particular 
subject,  such  as  Printers,  Desktop 
Publishing  and  Business.  If  you  need 
more  help,  use  the  *See  a  List  of 
Subjects/Search  *  option  to  display 
a  list  of  more  than  three  dozen  com- 
monly used  subject  headings. 

Use  the  Department  option  to 
find  all  articles  written  for  a  particu- 
lar subject,  such  as  New  Products,  ST 
Section,  and  Features.  Again,  if  you 
need  more  help,  use  the  *  See  a  List 
of  Departments/Search*  option  to 
display  a  list  of  commonly  used 
department  headings. 

The  Program  Name  and  Pro- 
gramming Language  options  only 
search  tlirough  articles  which  contain 
program  listings.  For  example,  you 
could  search  by  Program  Name  to 
learn  when  Antic  ran  the 
STRETCH. ACT  program.  Use  the 
Programming  Language  option 
when  you  know  what  language  the 
program  was  written  in.  This  option, 
for  example,  could  find  every  AC- 


If  the  Antic  Index  was  published 

as  a  book,  it  would  contain 

more  than  8,500  pages. 


find  all  articles  written  by  a  particu- 
lar author  For  example,  if  you  wanted 
to  know  when  Russ  Wetmore  wrote 
those  articles  about  the  1030  modem, 
you  would  search  by  Author's  Name 
for  WETMORE.  The  index  software 
searches  through  its  database  and 
compiles  a  list  of  every  article  writ- 
ten by  WETMORE.  This  list  is  called 
a  selection  set.  Once  a  selection  set  is 
created,  it's  put  into  a  menu  and  dis- 
played onscreen.  Now,  just  type  in  the 
number  of  the  article  you  want  to  see. 
The  Month  and  Year  of  Publica- 
tion options  let  you  restrict  your 
searches  to  a  specified  date. 


TION!  program  Antic  has  printed. 

Just  remember  that  the  Antic  Index  is 
an  all-text  service  and  cannot  contain 
program  listings,  only  the  accom- 
panying articles. 

The  Article  Title  option  finds  an 
article  by  its  title.  If  you  entered  "on- 
line," the  Index  would  find  every  ar- 
ticle which  has  the  word  "online" 
anywhere  in  its  title. 

SEARCH  STRATEGIES 

The  Magazine  Title  option  lets 
you  restrict  your  searches  to  Antic 
Magazine,  START  Magazine,  or  ANTIC 
ONLINE. 


Even  if  you  don't  remember  the  ex- 
act title  of  the  article,  or  even  how  to 
spell  the  author's  name,  the  Antic 
Index  can  still  help.  For  example,  if 
you  needed  Lawrence  Dziegielewski's 
"Disk  Drive  Survey,"  but  couldn't 
remember  how  to  spell  Dziegielewski, 
you  could  search  by  Author's  Name 
for  any  part  of  the  name  you  could 
spell.  Searches  for  "Dz"  or  "ski" 
would  find  the  article  almost  as 
quickly  as  a  search  for  Dziegielewski. 

Of  course,  you  could  have  found 
the  same  article  by  searching  by  Sub- 
ject for  "Review"  or  searching  by  Ar- 
ticle Title  for  "Disk." 

In  most  cases  you  don't  need  to 
type-in  the  entire  search  term.  A  few 
well-chosen  keywords  will  do.  Imag- 
ine you're  looking  for  an  article  titled: 
"3-D  Fractals:  Three-dimensional  ST 
landscapes." 

But  you  could  only  remember  that 
the  article  had  the  word  "fractal"  in 
it.  No  problem.  Select  choice  10, 
Article  Title  from  the  SEARCH  BY 
menu,  and  type  the  word  "fractal"  at 
the  "Enter  Article  Title:  "  prompt. 
Here's  what  you'll  see: 

Enter  Article  Title:  fractal 

6  articles  selected 

ANTIC  ONLINE  ABSTRACTS 

1  Faster  Fractals 

2  Fractals  For  Your  Atari 

3  Fractal  Zoom 

4  3-D  Fractals:  Three  dimension 

5  Fractal  Congratulations 

6  Ballblazer  &  Rescue  On  Fractal 
Enter  choice  ! 

The  index  creates  a  menu  listing  ev- 
ery article  which  has  the  word  "frac- 
tal" in  its  title.  The  "3-D  Fractals: 
Three  Dimensional  ST  Landscapes" 
article  is  choice  #4. 

Type  a  4  at  the  "Enter  choice  !" 
prompt,  for  complete  bibliographic 
information  about  the  article — 
including  author,  which  issue  it  ap- 
peared in,  the  page  number,  and 
whether  there  are  any  type-in  listings. 
If  the  complete  text  of  the  article  has 
already  been  uploaded,  it  will  appear 
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when  you  press  [RETURN].  Other- 
wise, that  [RETURN]  will  take  you 
back  to  the  SEARCH  BY  menu. 

COMBINING  TERMS 

Sometimes  the  categories  you  select 
will  be  too  broad.  For  example, 
searching  for  New  Products  would 
produce  a  selection  set  with  more 
than  450  articles! 

Whenever  your  selection  set  has 
more  than  50  articles,  you  can  add  an- 
other search  method.  This  is  called 
"narrowing"  your  search.  Here's  what 
the  screen  would  look  like  at  this 
point  in  your  New  Products  choice: 


a  9Mt  i  LIST  sr  isatKxs/itirtm 

«« 1  tin  if  ttfJroiMts/SfiKh 
Pnvnii]  iHjutt 

U  Irlitlt  litlt 
li  IhjuiH  Titlt 


E»H  Irtitit  litlt:  ttS  ElVKS 


II  Ul 
^  Eixtss! 

tnic,  m  m 

(Inins,  MiKi 


bus  (tl)  (B  mt  1 


The  Index  is 

a  library  and 

a  database. 


Enter  Department:  New  Products 

455  articles  selected 

The  Index  has  found  455  articles 
containing  new  product  announce- 
ments. If  you  can  remember  anything 
else  about  the  article,  such  as  the  year 
it  was  published,  you  can  eliminate 
the  articles  published  in  other  years. 

For  example,  if  you  know  that  the 
new  product  announcement  was 
published  in  1985,  you'd  narrow  your 
search  by  eliminating  all  other  years. 
This  time,  the  Index  will  only  search 
through  the  455  "New  Products"  ar- 
ticles it  found  during  its  last  search. 
It  will  not  search  through  every  arti- 
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cle  in  the  database.  Here's  what  you'd 
see: 

SELECT  YEAR  PUBLISHED: 

1  1982 

2  1983 

3  1984 

4  1985 

5  1986 

6  1987 

7  1988 

8  1989 

Enter  choice  !4 

77  articles  selected 

From  the  455  New  Product  articles, 
the  index  has  selected  the  77  which 
were  published  in  1985 .  From  here, 
you  can  continue  to  narrow  your 
search,  start  a  new  search,  or  display 
a  menu  of  the  selected  articles. 

SEARCH  TIPS 

When  combining  several  search 
methods,  it's  usually  easiest  to  start 
with  the  method  that  will  produce 
the  largest  selection  set,  and  narrow 
from  there. 

Since  you  may  only  "narrow"  a 
selection  set  having  more  than  50 
members,  try  to  start  your  search  with 
the  method  most  likely  to  find  at  least 
50  articles.  The  following  examples 
illustrate  this  strategy, 

SAMPLE  TASK:  Find  all  the  articles 
written  by  Tim  Oren  in  1985. 

Strategy  #1:  If  we  begin  by  search- 
ing Author's  Name  for  Oren,  the  in- 
dex finds  only  26  articles.  Since  we 
need  more  than  50  articles  to  use  the 
"narrow"  function,  we  must  examine 
the  publication  date  of  each  article, 
until  we've  found  those  published  in 
1985.  Strategy  #2:  If  we  begin  by 
searching  Year  of  Publication  for 
1985,  the  index  finds  more  than  250 
articles.  From  here,  we  narrow  the 
selection  set  by  searching  Author's 
Name  for  "Oren."  Almost  immedi- 
ately, the  six  Tim  Oren  articles  from 
1985  appear  A 

Antic  Technical  and  Online  Editor 
Charles  Jackson  designed  and  put  to- 
gether the  Antic  Index  and  ANTIC 
ONLINE. 
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Since  1981 


Lyco  Computer 

Marketing  &  Consultants 


Air  orders  processed  within  24  hours. 


Lyco  Means  Total  Service. 


Mark  "Mac"  Bowser.  Sales  Manager 

I  would  personally  like  to  Ihank  all  of  our  past  customers  for  helping  to  make 
Lyco  Computer  one  of  the  largest  mail  order  companies  and  a  leader  in  the 
industry.  Also,  I  would  like  to  extend  my  personal  Invitation  to  all  computer  en- 
thusiasts who  have  not  experienced  the  services  that  we  provide.  Please  call 
our  trained  sales  staff  at  our  toll-free  number  to  inquire  about  our  diverse 
product  line  and  weekly  specials. 

First  and  foremost  our  philosophy  is  to  keep  abreast  of  the  changing  market 
so  that  we  can  provide  you  with  not  only  factory-fresh  merchandise  but  also 
the  newest  models  offered  by  the  manufacturers  at  the  absolute  best  possible 
prices.  We  offer  the  widest  selection  of  computer  hardware,  software  and  ac- 
cessories. 

Feel  free  to  call  Lyco  if  you  want  to  know  more  about  a  particular  item.  I  can't 
stress  enough  that  our  toll-free  number  is  not  just  for  orders.  Many  companies 
have  a  toll-free  number  for  ordering,  but  if  you  just  want  to  ask  a  question 
about  a  product,  you  have  to  make  a  toll  call.  Not  at  Lyco.  Our  trained  sales 
staff  is  knowledgable  about  all  the  products  we  stock  and  is  happy  to  answer 
any  questions  you  may  have.  We  will  do  our  best  to  make  sure  that  the 
product  you  select  will  fit  your  application.  We  also  have  Saturday  hours  -  one 
more  reason  to  call  us  for  all  your  computer  needs. 

Once  you've  placed  your  order  with  Lyco,  we  don't  forget  about  you.  Our 
friendly,  professional  customer  service  representatives  will  find  answers  to 
your  questions  about  the  status  of  an  order,  warranties,  product  availability,  or 
prices. 

Lyco  Computer  stocks  a  multimillion  dollar  inventory  of  factory-fresh  merchan- 
dise. Chances  are  we  have  exactly  what  you  want  right  in  our  warehouse.  And 
[hat  means  you'll  get  it  fast.  In  fact,  orders  are  normally  shipped  within  24 
hours.  Free  shipping  on  prepaid  orders  over  $50,  and  there  is  no  deposit  re- 
quired on  C.O.D.  orders.  Air  freight  or  UPS  Blue/Red  Label  shipping  is  availa- 
ble, too.  And  all  products  carry  the  full  manufacturer's  warranties. 

I  can't  see  why  anyone  would  shop  anywhere  else.  Selection  from  our  huge 
inventory,  best  price,  service  that  can't  be  beat  —  we've  got  it  all  here  at  Lyco 
Computer 

TO  ORDER,  CALL  TOLL-FREE:  1-800-233-8760 
New  PA  Wats:  1-800-233-8760 

Outside  Continental  US  Call:  1-717-494-1030 

Hours:  Monday  through  Friday,  9:00  a.m.  to  9:00  p.m. 
Saturday,  10:00  a.m.  to  6:00  p.m. 

^   .   ,    ^  For  Customer  Service,  call  1-717-494-1670, 
^LJ;cJ  9AM  to  5PM,  Mon.  -  Fri. 

tV_i__i  Or  write:  Lyco  Computer,  Inc. 

P.O.  Box  5088,  Jersey  Shore,  PA  17740 

PLEASE  NOTE:  •  full  manufacturers'  warranties  •  no  sales  tax 

outside  PA  •  prices  show/  4%  cash  discount;  add  4%  for  credit  cards  • 
APO,  FPO,  international;  add  $5  plus  3%  for  priority  •  4-week  clearance 
on  non-certified  checks  •  we  check  for  credit  card  theft  •  sorry,  com- 
patibility not  guaranteed  •  return  authorization  required  •  due  to  new 
product  guarantee,  return  restrictions  apply  •  price/availability  subject  to 
change  •  prepaid  orders  under  $50  in  Continental  US,  add  $3.00. 


MAGNAVOX 


CM-8502 

•  Composite 
Color 

•  Green  Text 
Switch 

•  Speal<er 

•  Suggested 
Use  130XE 


$179 


95 


INDUS 


GTS-1 00 

•  Atari  ST 
Drive 

•  3.5"  DSDD 

:95 


$195' 


m 


SupraModem" 

2^00 


•  fully  compatible 
with  industry- 
standard,  intelligent 
AT"  commands 

•  Compact  size 

•  1-vear  warranty 


$12995 


8088  XT  £^ 

•  1G  Bit  80SS  Intel  Running 
at  4-77/10  MHz 

•  640K  RAM 

•  One  3eOK  Ftoppy,  1  PxaUal 
Port 

■  Mutli  I/O  (includes  1  Senal 
Pofl.  1  Game  Pod,  Clock 
Catondai.  D>sK  ConlroHw 
IcH  Two  360K's) 

•  16)  EgM  ExpenakHi  VO 
Slots 


>  101  Key  Keylioard 
■  150  Watt  Poiver  Supp(y 
*  One  Year  Wi/ranty  on  PvU 
A  Lmbor 


ATARI  HARD  DISK 

Super  Speed 
Super  Performance 

•  20  Megabyte  Drive 

•  Improves  ST 
Performance 

•  Includes  HardDisI^. 
Utilities 


$569 


95 


AATARr 

Cartridge  Software 
3  for  $9.95 

CALL  FOR 
TITLES! 

Epyx, 

500  X  J  ^r 


$1395 


HeadStart 


COLOR  SYSTEM 

•  plug  in  and  use  im- 
mediately 

•  IBM-XT  compatible 

•  2-360K  Drives 

•  Free  1-year  limited 


$529 


warranty 


$969 


95 


Hi  Roscolormonitorincludedl 


1-800-233-8760^ 


^ 


^ 


^ 


NX1000 


Panasonic. 

OHice  Automalioa.'^'^'vA 

1080i  Model  II  -^ 


OKJDATA 


Okimate  20 


$169 


95 


'w/cable  purchase 
•  1 44  Cps  Draft 
i  36  Cps  NLQ 
t  EZ  Soft  Touch  Selection 
'  Paper  Parking 
<  Epson  Std.  &  IBM  Proprinter 

II  r.omnatible 


^ 


$149 


95* 


150  Cps  Draft 

Friction  &  Tractor  Feed  Std. 

Bidirectional  &  Logic 

Seeking 

NLQ  in  all  Pitcties 

'Quantities  limited 


•  Color  Printer 

•  80  cps  Draft 

•  40  cps  NLQ 


$129 


95 


NX-1000  $169.95- 

NX-15  $289.95 

NX-1000  Color  $225.95 

NR-15  $419.95 

NB-15  24  Pin  $669,95 

NX-2400   $309.95 

NB24-10  24  Pin  $369.95 


lOSOi  Model  II   $149.95' 

1091i  Model  II   $195.95' 

1092i  $309.95 

1592 $375.95 

1595 $439.95 

1124 $319.95 

'quantities  limited 


Okimate  20 $129.95 

Okimate  20  w/cart  $189.95 

180 $219.95 

182 $209.95 

182+   $225.95 

183 $239.95 


PRINTERS 


Citizen 

120  D  $144.95 

180  D  $159.95 

MSP-40  $279.95 

MSP-15E  $309.95 

MSP-50  $369.95 

MSP-45  $349.95 

MSP-55  $469.95 


AATARI" 


Access: 

Triple  Pack  $11.95 

Leader  Board  Double 

Pack  $9.99 

Actlvlslon: 

Music  Studio $19.95 

Great  American  Road 

Race  $9.99 

3roderbund; 

Print  Shop  $26.95 

Graphic  Lib.  i.il  or  ill...ea,  $14.95 

Electronic  Arts: 

Pinbail  Con.  Set  $8.95 

One  on  One  $8.95 

Lords  of  Conquest $8.95 

Super  Bouiderdash  $8.95 

Music  Construction 

Set  $8.95 


Selkosha 


SP  1200AS  RS232   ...  $179.95 

SLSOAi  $329.95 

MP54iOFA   $999.95 

SP  Series  Ribbon $7.95 

SK3000  Ai  $349.95 

SK3005  Ai  $445.95 

SPB  10  $CALL 

SL  laOAi  $599.95 

SP  IBOOAi  $CALL 


Attention 
Educational 
Institutions: 

if  you  are  not  cunently  using 

our  educational  service 

program,  please  call  our 

representatives  for  details. 


Epson 

LX800  $184.95 

FX850  $339.95 

FX1050  $499.95 

EXBOO $434.95 

LQ500 $339.95 

GQ3500  SLOW 

LQ850 $525.95 

LQ1050  $749.95 

INTERFACING  AVAILABLE 


Brother 

M1109  $189.95 

M1509   $335.95 

M1709   $439.95 

Twinwriter  6  Dot  & 

Daisy  $899.95 


2^^^^  ^^^^ 


Monitors 


Access: 

10th  Frame  ... 
Actlvision: 
Music  Studio  . 
Broderbund: 

Superbike  Challenge  ... 
Typhoon  Thompson  .... 
Electronic  Arts: 
Hunt  for  Red  October  .. 
Awesome  Arcade  Pack 

Epyx: 

Dive  Bomber  

Impossible  Mission  2  . 

Winter  Games  

Firebird: 
Universal  Military 
Simulator  


,  $22.95 

$27.95 

$11.95 
$21 .95 

$32.95 
$30.95 

$22.95 
$22.95 

$11.95 


MIcroleague: 

Microleague  Baseball  . 
Micro.  Wrestling  

$33.95 
$25.95 

Magnavox: 

BM7652  $79.95 

BM7622  $79.95 

MIcroprose: 

CM8502  $179.95 

F-15  Strike  Eagle  

$24.95 

Gunship  

MIndscape: 

$28.95 

Interfacing: 

Road  Runner 

$27.95 
$27.95 

Indiana  Jones  and  the 
Temple  of  Doom  

Origin: 

Microprint $39  95 

PR  Connection  $62.95 

Autoduel  

Ultima  IV 

$24,95 
$34.95 

$32.95 
$25.95 

Printer 

Connection  $39.95 

Strategic  Simulations 

Questron  li  

DEALER 

Heroes  of  the  Lance  .. 

INQUIRIES 

5-1/4 


Disk  Notcher $6.95 

Maxell: 

SSDD   $7.95 

DSDD  $8.95 

Bonus: 

SSDD   $5.95 

DSDD  $6.95 

SKC: 

DSDD  $6.95 

DSHD  $13.95 


Diskettes 


Generic: 

DSDD  $4.95 

Verbatim: 

SSDD   $8.99 

DSDD  $11.50 

3.5 

Maxell: 

SSDD   $11.50 

DSDD  $17.95 


Bonus: 

SSDD   $10.95 

DSDD  $13.95 

Verbatim; 

SSDD   $12.95 

DSDD  $18.95 

SKC: 

SSDD   $9.95 

DSDD  $13.99 


INVITED 


Joysticks 


Winner  909 $24.95 

Wico  IBM/AP  $29.95 

Lipstick  Plus   $14.95 

Kraft  KC  III  Ap/PC  $16.95 

Kraft  PC  Joystick 

Card $27.95 

Kraft  Maze  Master $8.95 

I  Controller $13.95 

Epyx  500  XJ  $13.95 


Modems 


Avatex: 

1200e $65.95 

12001  PC  Card  $65.95 

1200p $89.95 

1200hc  Modem  $89.95 

2400 $149.95 


Supra: 

300 $119,95' 

1200 $119.95* 

2400 $129.95 

'limited  quantities 

Avatex 

2400 
Modem 

$149^= 


Disc 
Storage 


QVS-10  5'/.  $3.96 

QVS-75  51/.  $10.95 

QVS-40  3v4  $9.96 


Join  the  thousands  who  shop  Lyco  and  Save 


I  Ijpe-Iii  Software 


GAME  OF  THE  MONTH 


Roulette,  Atari  Style 

You  won't  lose  your  shirt  to  the  8-bit  croupier.  By  Michael  Pemherton 


MM  .0  .    'H        1^        M    \ 

HiQ    ,pi|||      IQI^      1^1^     ''Smk 

U-isJEMNj    REP    JBtftCKJ     0D&     |i'>-.lf.] 

CfliH    AMAILflBLEl     SS08 

BET     OH    SOUARB     8, 9, XI, 12     <V/M)?Y 

ArrouHT>2soa 

w 

ionship 
progran 
puters  1 
disk  or 

hy  buy  a  roulette  tab 
your  Atari  can  be  a 
casino  croupier?  I'hi 
1  works  on  8-bit  Ata 
fvith  at  least  48K  n 
cassette. 

le  when 
chaiiip- 
s  BASIC 
iri  coiii- 
lemory, 

My  luck  in  casinos  has  been  con- 
sistently poor.  I  figured  that  the  best 
way  to  survive  an  upcoming  trip  to 
Vegas  would  be  to  practice  the  games 
I  was  most  interested  in — craps,  black- 
jack and  roulette. 

Now,  I  own  some  dice  and  some 
cards,  but  I  don't  know  anyone  with 
a  roulette  table  stashed  away  in  the  ga- 
rage. Undaunted,  I  rolled  up  my 
sleeves,  put  on  my  shaded  visor  and 
wrote  a  program  to  play  Roulette  on 


my  Atari  800. 

GETTING  STARTED 

Type  in  Lisdng  1,  ROULETTE.BAS, 
check  it  with  TYPO  II  and  SAVE  a 
copy  before  you  RUN  it. 

If  you  have  trouble  typing  the  spe- 
cial characters  in  lines  140-144,  don't 
type  them  in.  Instead,  type  Listing  2, 
check  it  with  TYPO  II  and  SAVE  a 
copy.  When  you  RUN  Listing  2,  it  cre- 
ates these  hard-to-type  lines  and  stores 


them  in  a  file  called  LINES.LST.  To 
merge  the  two  programs,  disk  users 
LOAD  "D:ROULETTE.BAS"  and  then 
ENTER  "DiLEMES.LST."  Cassette  users: 
CLOAD  Listing  1,  then  insert  the 
separate  cassette  used  for  Listing  2 
and  ENTER  "C:".  Remember  to  SAVE 
the  completed  program  before  you 
RUN  it. 

When  you  RUN  Roulette,  the  titles 
will  appear  and  the  screen  will  go 
blank  for  about  10  seconds  while  the 
program  draws  the  gameboard,  color- 
ing the  "red"  numbers  with 
Player/Missile  graphics.  When  the 
screen  turns  on  again,  the  Roulette 
board  will  appear  with  the  cursor  in 
the  upper  left-hand  corner. 

With  a  joystick  in  Port  1,  you  can 
move  the  cursor  to  any  position  on 
the  board  and  place  bets.  Pressing 
the  joystick  button  puts  a  chip  at 
the  cursor  position.  A  buzzer  will 
sound  if  you  try  to  place  a  bet  on  an 
illegal  spot. 

You'll  be  asked  to  verify  the  bet 
and  say  how  much  money  you  want 
to  wager.  You  can  risk  any  amount  on 
a  single  bet,  as  long  as  you  don't  ex- 
ceed the  amount  of  cash  you  have  on 
hand.  Betting  $0  counts  as  no  bet,  and 
your  chip  will  be  removed  from  the 
board.  To  increase  the  amount  of  a 
bet,  just  put  a  second  bet  in  the  same 
area  of  the  board  and  the  software 
will  add  it  in. 

Once  you  place  all  your  bets,  press 
[START]  to  spin  the  wheel.  The  spin- 
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ning  numbers  will  appear  below  the 
betting  board  and  will  go  through  the 
whole  sequence  at  least  twice  before 
settling  on  a  winning  number 

When  that  winning  number  comes 
up,  the  computer  will  determine  your 
winnings,  if  any,  listing  each  success- 
ful bet  with  the  amount  of  money  it's 
won  for  you.  If  you  go  broke,  the 
computer  will  let  you  start  over  To 
bet  again,  just  press  [RETURN] .  That's 
all  there  is  to  it. 

BEniNG  ON  ROULEHE 

Now  all  you  have  to  do  is  learn  the 
authorized  roulette  bets. 


(for  example,  7,  8,  10,  11).  Put  your 
chip  at  the  point  where  they  all  meet. 
Pays  8  to  1. 

5.  Line  bets  (5):  you  bet  on  the  five 
numbers  0,  00,  1,  2,  3.  Put  your  chip 
at  the  top  or  bottom  of  the  line  that 
connects  these  five  numbers.  Pays 
6  to  1. 

6.  Line  bets  (6):  you  bet  on  the  six 
numbers  that  border  one  of  the  11 
vertical  lines  on  the  board  (for  exam- 
ple, 13  through  18).  Put  your  chip  at 
the  top  or  bottom  of  the  line  you're 
betting  on.  Pays  5  to  1. 

7.  Column  bets:  you  bet  on  the  12 
numbers  in  one  of  the  three  horizon- 


There  are  11 

different  kinds  of  bets  in 

Roulette.  This  may  sound  complex, 

but  the  system  is  actually 

very  easy  to  learn. 


There  are  11  different  kinds  of  bets 
in  Roulette.  This  may  sound  complex, 
but  the  system  is  actually  very  easy  to 
learn,  and  you  place  bets  with  this 
program  exactly  as  you  would  if  you 
were  in  a  real  casino.  Here  is  how  the 
bets  work: 

1.  Straight  bets:  you  bet  on  any 
single  number.  Put  your  chip  right 
inside  that  number's  square.  Pays  35 
to  1. 

2.  Split  bets:  you  bet  on  any  two  ad- 
joining numbers  (0  and  00  adjoin  only 
each  other).  Put  your  chip  on  the  line 
between  the  two  numbers.  Pays  17 
to  1. 

3.  Street  bets:  you  bet  on  any  three 
numbers  in  a  vertical  line.  Put  your 
chip  on  the  outside  edge  of  the  board 
(top  or  bottom)  where  the  "street" 
ends.  Pays  11  to  1. 

4.  Square  bets:  you  bet  any  four 
numbers  grouped  together  in  a  square 


tal  ranks  across  the  board,  Put  your 
chip  on  the  right-hand  edge  of  the 
column  you're  betting  on.  Pays  2  to  1. 

8.  Dozen  bets:  you  bet  on  either  the 
first,  second  or  third  dozen  numbers 
on  the  wheel.  All  dozens  lose  on  0  or 
GO.  Put  your  chip  inside  the  1ST 
DOZEN,  2ND  DOZEN  or  3RD 
DOZEN  box.  Pays  2  to  1. 

9.  High/Low  bets:  you  bet  on  either 
1  to  18,  or  19  to  36.  All  high/low  bets 
lose  on  0  or  00.  Place  your  chip  in 
either  the  1-18  box  or  the  19-36  box 
respectively.  Pays  even  money. 

10.  Odd/Even  bets:  you  bet  on 
whether  the  winning  number  will  be 
odd  or  even.  All  odd/even  bets  lose 
on  0  or  00.  Put  your  chip  in  the  ODD 
or  EVEN  box.  Pays  even  money. 

11.  Black/Red  bets:  same  as 
Odd/Even,  except  you  put  your  chip 
in  the  BLACK  or  RED  box.  Pays  even 
money. 


I  have  yet  to  find  any  betting 
strategy  that  wins  consistently  (no 
surprise  there!),  but  I'll  keep  trying. 
Maybe  you'll  do  better 

PROGRAM  TAKE-APART 

The  key  to  this  Roulette  program 
lies  in  the  configuration  of  BETS, 
which  identifies  the  kind  of  bet  be- 
ing made.  The  ATASCII  value  of  each 
character  in  BETS  specifies  a  certain 
type  of  bet — 1-38  are  the  straight  bets, 
39  is  a  line  bet  (5),  40-97  are  the  split 
bets,  etc.  The  program  notes  the  cur- 
sor's horizontal  and  vertical  position 
when  a  bet  is  made,  uses  them  to 
identify  a  corresponding  character  in 
BETS,  translates  this  character  into  a 
numerical  value  with  the  ASC  func- 
tion and  then  decodes  and  records 
the  bet  in  the  appropriate  variable. 

The  wheel  is  spun  via  the  RND 
function,  and  it  will  go  through  two 
to  five  complete  rotations  before  stop- 
ping on  a  number  The  starting  posi- 
tion for  successive  spins  is  the  num- 
ber which  has  just  won.  (This 
happens  in  Las  Vegas  roulette  too.) 

Finding  out  which  bets  (if  any)  have 
won  is  simple.  The  possible  winning 
numbers  are  determined  for  each  bet, 
and  if  one  matches  the  actual  winning 
number,  the  original  amount  bet  is  au- 
tomatically returned  to  your  stake  and 
the  winnings  are  calculated. 

10-510     Game  Setup 
900-1070  Cursor  Movement 
1075-1160  Interpret  Bet  Type 
1190-1630  Record  Bets  and 

Amounts 
2000-2040  Spin  the  Wheel 
3000-3530  Display  Winnings 
4100-4520  Bet  and  Gameboard 

Subroutines 
5000-5060  Gameboard  Configu- 
ration 
6000-6120  BETS  Character  Codes 
6130-6140  Roulette  "Wheel 

Numbers  A 

Michael  Pemberton  is  working  on  a  Ph.D. 
in  English  at  the  University  of  Califor- 
nia, San  Diego. 
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Order  Toll  Free 


800-558-0003^<>i^P'^t(ftbLUt^800-558-0003 

WI  Orders  &  Info  414-357-8181  ^O/lbUtlltt  f^leCttOnlCi  WI  Orders  &  Info  414-357-8181 


HQt&mn 


Disk  Drives 


Supra  20  Meg 569 

Supra  30  Meg 649* 

*FREE   Delivery 
Indus  GTS-100 189 

3.S'af-314Ciiiii|iigble 

IB  5.25" 219 

ST  Host  ControUer  .CaU 
Drive  Master 44.95 


Dij^itizer  Special 


IMG  Image 
Scanner 


$74.95 


MODEM  SPECIAL 


'  Supra  2400  baud  modem 
ST  modem  cable 
Hash  VI. 6   Software 


Package  Includes 

•  PC  Ditto 

•  ST/PC  5.25"  Drive 


$165 


IBM  Emulation  Special  |    ST  ACCESSORIES 


Anti-Glare  Screen 19.95 

Drive  Master 44.95 

3.5  Drive  Clean  Kit 9.95 

6  Way  Surge  Protector.  14.95 
6  l=TSF  354/31 4  Cable.  19.95 

Monitor  Master 44.95 

Mouse  Master 34.95 

Mouse  Pad 8.95 

Mouse  House 6.95 

3.5"  SS/DD  Disks** 11.95 

3.5"  nS/DD  Disks** L^jflfi 


$279 


MIDI  Synth  Special 


CASIO  HT-700  Midi 

Synthesizer  and  Keyboard  with  PCM.I 


0^ 


8-Blt  Hardwai» 


Computer 

Special 
130XE    $299\ 

Computer 
With  XF-551 


^XF-551  Disk  Drlv^ 
Double  Density 

$179 


XEP-80  60 
Column  Card 

$79.95 


1 


^ModemPackag^ 

Avatex  1200  HC'  P.R.  Connec- 
tion •  550  Express  Software  • 

cable  $]yg 


Misc.  Hardware 


PR-Connection 59.95 

US  Doubler 49.95 

Animation  Station 59.95 

Supra  1150  Interface CALL 

Graphic  AT  Interface 39.95 


'    JOYSTICKS** 

Wico  Super  3-Way 19.95 

Starfighter 8.95 

Tac3 10.95 

Tac5 14.95 

Slick  Stick 7.95 

Epyx500XJ 12.95 

Epyx200XJ 9.95 

(Note:  prices  Qood  with  any  other  purctiace) 


iirCModerns  -  Ac^ 


Panasonic 


1080-i  -II 149 

10911-1! 185 

1092 329 

P1124  WEW24pin 339 

\aser  Partner 159^/ 


MODEMS 

Avatex  1200  E 69 

Avatex  2400  HC 155 


Supra  2400  SPECIAL 149 

SPECIAL  INCLUDES  :  Supra  2400  modam,  cabl( 
and  Free  ehlpping  In  Continental  USA . 


/AccessorieSn 


5.25"  Disk  Notcher 4.95 

6  Way  Surge  Protector14.95 

Printer  Stand 5.95 

.1000  Siieets  Paper 19.95, 


Star 


l\IX-1000 175 

NX-1 000  Rainbow 229 

NX-2400 319 

LASER 1795, 


8-Bit  Atari  Software 


BitOe  ol  Anlhlini 32.S5 

Computsf  Ambugh „ 30.05 

Bemal  Digoef 26.05 

Onttyiburg 38.05 

KwifAgnipfM 30.05 

Mech  BhOKfe 30.06 

Phuibsle 26.05 

PlanlMta  II  26.05 

FMel  Ctarga  Chbliuniugi 32.05 

Shibll 26.05 

Sons  ol  LlMrty 26.05 

U.8AA.F 30.05 

Wir  In  Russia 52.05 

WirgimB  Conslnjctlon  Sflt 20.05 

Wirstiip 30.05 

Wbirds  Clown 26.05 


Electronic  Arts    ■     MICROPROSE 


Alemito  R«ill(y;Ctty 20.« 

Alemato  Reallly:  Dungnn 20.65 

Bhmtr* 20.95 

Napolean  In  RussU 18.05 

Tomatiawk 20.95 

VWeo  Tltlo  Shop 20.95 

BaltfeofCttlckamuoa 23.95 

Rommel  Tobn* a.95 

Slameet  t 33.95 

ChBSsmifltW  2O00 26.95 


Cnaade  In  Europe 25.95 

Cortllct  In  Vietnam 25.95 

Decision  In !)»  Desert 25.95 

F-t5  8trlkB  Eagle 22.95 

Slent  Servtee 22.W 

Top  Qunner 16.95 


c 


NEW  Diamond  OS 
18.95 


3 


We  Have  Many  Programs  For  The  Atari  400/ 
800/XE/XL.  If  You  Don't  See  It  Here  :  CALL 


10  LBtle  Robots 18.05 

1086  Team  Disk  Fot  MLB 14.05 

1087  Tsam  Disk  Fix  MLB 14.96 

AoeofAces 18.95 

Al  8laf  Roslei  Disk 14.05 

Apshal  Tritog/ 14.05 

Award  Ware 10.05 

Btaho  Paddles 22.05 

Bop-n-  WresBe  (e4k) 19.96 

BouMeribsh  ConsL  Kit 12.05 

Ctiamp.  Loadrunner 10.05 

Cycle  Knlgtil 16.96 

Deepef,  Dngn/Qauntbl 17.05 

Bedronlc  CtBcktook 14.05 

BeotTfa;  Datamanagef 14.95 

Fleet  System  2 39.05 

Hlghl  SImJatof  II 33.95 

FraoUon  Aclton 18.05 

eaunllot  (e4k) 22.95 

eefieraf  Manager  for  MLB 10.05 


Miscellaneous 


Sultar  wizard 18.05 

Inlillrator 10.05 

Jupiter  MIslon  1099 32.05 

Leaderboard  Duo  Pak 10.05 

Love  Note  Maker 10.05 

Mastertype 25.95 

Math  Blaster 32.96 

Micro  League  Basebal 25.95 

MLB  flox/Stal 14.05 

Netwodh 25.06 

Newsroom 31.95 

Print  Driwr  Const  Set 16.95 

R  Time  8  Cart 54.05 

Racocar  Arttrmetfc 18.05 

Scenery  Dlsk#11  17.05 

Sparta  Dos 29.95 

Sparta  Toob 22.95 

Spy  Vs.  Spy  3 12.05 

Spell  II 32.05 

SplnnakBf  CALL 


Spitfire  40 23.05 

Strip  Poker 21 .05 

Super  Huey _.„ 16.05 

Simmer  Sames t2.05 

TrlpplB  Pak „ 14.05 

TralWazer 10.05 

Unhwse 32.05 

Word  Attack 32.06 


BRODERBUND 


BnipnJcs  UDnry  1 16.05 

Graphics  Library  2 16.95 

QraphfcB  Ubrary  3  „ 18.05 

Karateka Ift.ftS 

Print  Shop „  28.95 

Prht  Shop  Companbn 22.95 

Ulima  III 25.95 

Ullmi  IV 38.95 


Order  Toll  Free 

800-558-0003 

WI  Orders  &  Info  414-:i57-81Hl 


OnhpLLt^ftbLlL  tjf, 

'G.on.huma'c^l&ct>con.lc& 


■ry  /ippiies  lo  Delivery  in  ine  Coninsntal  U 


Order  Toll  Tree 

800-558-0003 

WI  Orders  &  Info  414-357-8181- 


Mon  -  FrI  9  am  -  9  pm  CST 
Sat  11  am  -  5  pm 


Your  ST  STORE  that's  as  close  as  YOUR  PHONE 

„^y  Since  }  982  _^m   m        • 

tlonxptJLtcftbLUt^ 

'C.on.&u./ne.t  ^Eie.ctt.on.ic.& 


Mon  -  FrI  9  am  -  9  pm  CST 
Sat  11  am  -  5  pm 


AMT-2-  8  9 


ST  HARDWARE  IS  LOCATED  ON  THE  LEFT  PAGE 


HI  ChM 31 .86 

1il  LeUtra  ind  Words 20.95 

1>l  Wonl-PluB $7.85 

220  ST 32.95 

30  [Hvrtopert  Dhk 10.«5 

30  Fort  PKkage  1  o(  2 17.96 

30  Plotttf  i  P*l8t  Dilwr 17.95 

A-CikPrimo 26.96 

A-CtMrt 14.96 

AB  -  Zoo 19.95 

AbaouiBoolo CALL 

Adip 1549.95 

A*r.  o(  SInlMd 31 .95 

Asgh  Anlrater 43.95 

Ae9Q|}  FaW« 31.95 

Al  Aljoul  AnwlM 36.96 

Animil  Khgdom 24.95 

Arttmlor,  TTib 25.95 

Ariblin  Uglili 31 .95 

Arcrttflcufal  Design  0l9j( 19.95 

Artind  Hhi  DIracBr 48.96 

Alte«ll«y1,2,or  3 18.95 

Assempfo 39.96 

Alhm  II 87.95 

Ayard  Miter 24.95 

Bk*  Pik 84.95 

eiM  Two - 39.95 

BBS  2.0 49.96 

CAD-3D 19.95 

Catmdir 19.96 

Cirtoon  DMion 19.95 

Certlkale  Miker 26.96 

Chart  Pak  81 32.95 

Ctoil  Maknr 87.95 


Co(iybl2 159.96 

Cofnerman 32.95 

Ciyjtal 14.95 

CytOf  Cortrel 39.95 

Cybw  Pahl 44.95 

Cyber  «culpl 84.96 

Cyber  StudkJ,  Tin 58.95 

Cyber  Texture 32.95 

Cyber  VCR 49.95 

Data  Manager  8T 48.95 

Datamaps 17.95 

Datrrapa  II 17.95 

OB  Man  4.0 144.95 

Decimal  Dungeon 24.95 

Degas  Eite 38.96 

Deluxe  Mlntoom 39.95 

Desk  Cart 68.95 

Desk  Top  Publaher 89.95 

Educatton  Qraptifcs 25.95 

People.  Places.  Tilings  eraphfca  25.95 

Symbols  &  Skygans  8rapt}h» 25.95 

Dlgl-Dnm 24.95 

Dt«nx 114.95 

Drafbt  Large  Data  Pkrtter 87.85 

Draw  Art  Pro 49.95 

Dsk  Tp  Pub  Lb/Easy  Draw 64.95 

Dyni  Cad 449.96 

Easy  Score 87.96 

Easy  Toob 32.95 

Bectro  Calendar 35.95 

EZ  Score  Plus 104.95 

Fast 31.95 

HnanclalPlm 114.95 

Rngers 34.95 


Rtet  Shapes 20.86 

Hasll  1.6 19.95 

Rasliback 79.95 

Font  Pak  1  for  Easy  Draw 25.95 

Fonts  *  BordeiVP.M 21.95 

forb 22.95 

Forttl  MT.  32.95 

FraoUon  Actton 24.96 

Future  Design  Disk 19.96 

BPklst 27.95 

9.I.S.T 22.95 

Genesis 49.96 

8FA  Artist 49.95 

SFA  Artist 48.95 

9FA  Bisb  20 19.95 

8FA  Bask;  3.0 64.85 

9FA  Book  3.0 19.95 

SFA  Comparton 32.85 

SFA  Compiler 38.85 

9FADraH+ 99.85 

SFA  0b|ect 67.95 

SFA  Vector 32.95 

Ghostly  Grammers 31.95 

Gki  Patch 104.95 

Hard  Disk  Backup 25.95 

Human  Design  Dbk 19.96 

Hyper  Switch 18.95 

IB  Copy 21 .95 

IB  Dllk  Ullty  21 .95 

IB  Haid  Dbk  Back  Up 21.85 

Irtormer.  The 87.85 

Inlerttik 24.85 

Invaskjn 19.95 

Juggler  UIINly 32.95 


KCS  Level  II 189.95 

Keyboard  Conir  Sequencer 149.95 

Keys 48.95 

KH  Talk 20.96 

KkKterama 24.85 

Labelmastor  EIRe 27.85 

Lancb  d  the  Unicom 21 .85 

User  C 124.95 

LCS  Wanderer 25.95 

LOW  Bask;  2.0 54.95 

LOW  Power 99.95 

Logk  Master 31.95 

IflgistlxJr 57.95 

M-Cacbe 25.85 

M-Obk* 25.85 

Macro  Mouse 22.95 

Magbal  Myths 31 .95 

Major  Mottan 25.85 

Make  II  Mow 46.05 

Maps  and  Legends 22.95 

Mart(  Wlllams  C 114.85 

Mark  Wlllams  CSD 43,95 

Master  Cad 124.85 

Master  Plan 58.95 

Master  Tracks  Pro 219.85 

MathTak 20.95 

Math  Talk  Fraclkins 20.95 

Math  Wizard 24.95 

Mavb  Beacon  Typing 32.95 

Micro  Cookbook 32.95 

Micro  Lawyer 39.95 

Mterobot  Design  Dbk 19.95 

Midi  Maze 25.95 

Mighty  Mall 32.85 


MInlcom 25.95 

Mother  Goose 19.95 

MouseTracks 84.96 

Musk:  Constructkjn  Set 33.86 

Musb  Studio  88 38.95 

Navigator.  TTw 32.95 

Neo  Desk 18.95 

P.I.E 19.95 

PAGE  STREAM 127.95 

Pahtpra 32.85 

Partner  Forts  1  or  2 18.95 

Partner  Forms 19.95 

Partner  ST 32.95 

PC  Ditto  3.0 84.95 

Personal  Draw  Art  I 19.96 

Personal  Money  Mgr 32.96 

PHAtar 58.95 

Powerplan 49.95 

Prinlmasler  Plus 24.95 

Pro  Drum 19.95 

Pro  MMl  18.95 

Pro  Sound 19.85 

Pro  Sound  Designs 84.95 

DMI  BBS  ST 31.95 

Quicklran 22.95 

Road  &  RIvme 24.95 

Read-A-Rama 31.96 

Realtber 150.95 

Regent  Base  1.1  78,85 

Regert  Word  II 48.95 

Revotver 32.95 

Roland  0/110 74.85 

Scan  Art 32.85 

Score  Writer 25.95 


Shadow 19.95 

Space  Math 25.95 

8peclnjm512 43.95 

SpelbrBee 20.95 

ST  Art  Director 48.95 

ST  Becker  Text  ST 87.96 

St  Doctor 24.95 

STRephy 74.96 

ST  Sprite  Factoiy 25.95 

STTalc  Prolesskmal 18.95 

Super  Charged  EZ  Draw 99.95 

Supertiase  Personal 48.95 

Sniertwse  Pro 179.95 

Swittcak;  ST 48.95 

Sylvia  Porter 48.95 

Sympte  Trac 414.95 

Sync  Trac 269.95 

Technfcal  Draw  Art  I 19.95 

Tempus 32.85 

Textpro 32.95 

TTiunder 26.95 

Time  Bandits 25.95 

Time  Unk 33.95 

Trin*ase 64.95 

Tune  Up 32.95 

Tuneemllh 87.85 

TurtioST 32.85 

Ullly  Plus 39.95 

VWeo  Key 64.85 

VkJeo  Timng  Design 19.85 

VIP  Prafesskjnal 84.85 

Word  Perfect 134.95 

Word-Up 48.85 

Wordwritet  ST 48.96 


NEW  LOWER  PRICES 


ST  Recreation  Software  Specials 


)  learn  K  ror  MUjU lo.wo 

3D  Broak-TtmJ 26.95 

Academy 24.95 

Advanced  D&D  HettM  of  the  Lance  26.95 

Atbal 24.85 

Akbal  Coosltucllon  Ml 17.95 

Afcon 25.95 

Alen  Hres 26.95 

Al  Aboanl 15.95 

Alemale  Reality 25.95 

AndroH  Dadston 22.95 

Anaib  of  Rome 22.95 

Apshal  Trilogy 14.95 

AquaVenture CALL 

Arab  fox 13.95 

Arena 14.96 

AikunM 22.96 

Art  &  Flm  Dlreelor 44.95 

Attack  on  London 21 .95 

AUoduel 24.95 

Awesome  Arcade  Act  Pack 32.95 

Baiinca  of  Power 32.95 

BartMriin 26.95 

Banfs  Taki 31 .85 

Battle  SNp 17.95 

Bermuda  Project 25.95 

BerjerkS 22.95 

Belter  Dead  Thin  Albn 21.95 

Bbmartc 25.95 

Bbck  CauMran 25.95 

BbckLimp  17.95 

Bbck  Buster 25.96 

BoukkrDash  Cons  Nl 17.95 

Breech 25.96 

BlUgs  5.0 22.85 

BiMb  Baubb 25.85 

BlUb  GtosI 21 .95 

Calfomh  Games 28.95 

Capl.  Blood 32.95 

Card  Shirks CALL 


CertertoW  Squares CALL 

Champ  Wresting 12.95 

Cheesmaster  2000 28,06 

ChrorwquesI 32.96 

CorrtqJllon 29.95 

Cosmic  Rellof 23.95 

CrysUI 14.96 

Cyber  Complex 18.95 

Dart(  Casne 29.95 

Death  Sword 12.95 

Defender  ol  Crown 32.95 

De)a  Vu 32.95 

Dive  Bomber 28.95 

Double  Oregon 28.95 

Dungeonmasler 24.95 

Bite 29.95 

Empire 31 .96 

European  Scene  Disk 17.95 

Extensor 18.96 

M5Slr*o  Eagle 25.96 

Female  Date  SIrip  Poker 18.95 

Rnal  Assul 28.95 

Hre  and  Forget 25.95 

HreZone 23.85 

HIghl  SImulalor  II 32.95 

Rjundallon  Waste 24.95 

Fright  Run 25.95 

Games  ;  Simmer  Ed. 28.85 

Games :  Wkiter  Ed 28.95 

Sato 24.85 

Gauitbl 32.95 

SbdUtor 25.95 

Stibal  Cmmdr 28.95 

Gold  of  the  Reekn 24.95 

GoWrunner 25.95 

Gokjninner  Seen  DIske  1  Or  2 10.95 

Gok»ur™r2 26.96 

Gone  Flsti'n 29.95 

GulU  of  TNevos 29.85 


Harrter  Combat  SImubter 32.85 

Hero's  of  the  Lance 25.95 

Hole  In  One  Miniature  Gotl 18.95 

Hollywood  Poker 18.95 

Hunt  tor  Red  October 33.95 

Hyperdome 22.95 

I  Lulcroue 21.95 

Ikari  Warrter 25.96 

ImposslMeMbs  II 28.95 

Indoor  Sports 32.95 

Irtemaltonal  Soccer 25.95 

Irto  Ibe  Eagle's  Nest 25.95 

Japan  Scenery  Dbk 17.96 

Jet 32,95 

Jlnxter 25,95 

Joker  Poker 32.95 

Jupiter  Probe 17.85 

Karate  KM  II  25.95 

Karileka 22.95 

Khg'sOuest  1 32.95 

Kkig's  Quest  2 32.95 

Kklg'i  Quest  4  NEW 32.95 

King's  Quest  3 32.95 

Kosmlc  Kreig 25.95 

Lancekit 26.96 

Leader  Board  Duo  Pak 17.96 

Leatherneck 25,96 

Leatherneck  4  Player  Adaptor 13,85 

LebtaeSult  Liny 25,85 

Lebcre  Suit  Larry  2  kreVn  tor  tove  32,85 

Levlalhon  10.96 

Lock  On 25.85 

Lor*  of  Conquest 13.85 

Lor*  of  the  Rising  Sun 32.85 

Major  Motion 25.95 

Manhurter  New  York 32.95 

Master  Ntaja 26.85 

Matctvpotot 25.95 

Menace 19.85 


Melnipolls  2000  si 22.95 

Mk;rD  League  Basebal  II 39.95 

Moeblus 24,95 

MONOPOLY  25.95 

Mortvlb  Manor 22.95 

Murder  on  the  ABantte 25,85 

NIghl  on  the  Town 22,95 

Obllterator 25,95 

OMs 21.85 

Omega  Run 25.95 

Operation  Wol 25.95 

Outrun 32.95 

Ovortord 25.95 

Pibdln 25.95 

Paper  Boy 32.95 

Phante5lo1,2or3 25.85 

Ptwnbsm 22.85 

Ptoball  Factory 25.85 

PkiBall  Wizard 21 .85 

Pbtoon 25.95 

Pkjtos 19.95 

Poltee  Quest 32.85 

President  Elect  '88 18.95 

0-Ball 19.95 

Olx 25,95 

Ouestronll 31,95 

Rastan 25,95 

Ftebel  Charge  O  CHckamauga  38.95 

Ret»l  Universe 25.85 

Rad  Alert 11.85 

Renegade 25.95 

Rtogs  of  Zllfki 25.95 

Road  Raider 32.95 

Road  Wars 20,95 

Roadnjnner 32.95 

Roadwar2000 25.95 

Ftoadwar  Europa 28.95 

Rocket  Ranger 32.95 

Rockferd 20.95 


RPV 24.95 

Rubfcom  Allance 20.95 

SD.1 32.95 

Scrabbb 25.95 

Scrupbs 25.95 

Sertiy 29.96 

Shadowgate  32.96 

Shoot  the  Moon 25.95 

Shuttle  2 25.95 

Slert  Servfce 25.95 

Slpheed 22.95 

Skibad 32.95 

Sky  Bbstor 16.95 

Sky  Chase CALL 

Sl^fox 14.95 

Stoygon 25.96 

Sorcerer  Lord 23,95 

Space  Cutter 19.95 

Space  Harrier 32.95 

Space  Quest  1  or  2 32.95 

Space  School  81m 22.95 

Speed  Buggy 25.95 

Sports-  A-  Ron] 13.95 

Spy  vs  Spy  3 17.95 

ST  Conies  Alve 19.96 

Sbr  Fleet  1  34.95 

SterGIWerll 29.95 

Sbr  Quake 19.96 

Ster  Wars CALL 

starstruck 14.95 

Stelar  Crusade 36.86 

Street  Cat 13.95 

Street  Soccer 28.95 

SWp  Poker  2 25.96 

Sub  Battle  Skn 23.95 

Sundog 22.95 

Super  Cycb 12,95 

Super  Star  Hookey  32,95 

Superstar  Soccer 32.95 

TV.  Sports  Foolbal 32.96 


Tanglewood 25.95 

Techno  Cop 28.95 

Temple  Apshal  Trtk^gy 12.95 

TemplB  of  Doom 32.95 

Terror  Po* 25.96 

Test  Driw 24.95 

Teba  Quest 25.95 

Tliree  Stooges 32.95 

TlmeAndMaglo   NEW 28.95 

Time  Bandits 25.95 

Tonic  Tie 26.95 

Tower  Toppbr 28.95 

Tracker 29.95 

TralMazer 32.85 

Transputer 22.95 

Twlllghls  Ransom 22.95 

Typhoon  TTwmson 22.95 

UltmalllorlV 25.96 

Uninvited 32.95 

UnKwsal  Mllbiy  Sknulilor 32.95 

Universe  11 32.95 

Uridkjm 25.95 

Vimplre's  Empire 18.95 

Vegas  Gunbbr 22.95 

Vims 19.95 

War  Ship 38.95 

Wargame  Conslruclbn  Sel 22.95 

Wartock 21 .95 

WarslWp 38.85 

Western  Eirope  Seen  Dbk 17.85 

Western  Games 18.95 

Winter  Chalenge 10.95 

Wirter  Games _ 12.95 

Wlz  ball 14.9S 

Wlzanl's  Crown 25.95 

Wortd  Games 12.95 

WWF  Mkxo  Wrasfling 39.95 

Xevlous 19.95 

Zynaps 22.95 


No  surcharge  for 
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EDUCATION 


Spelling  Flashcards 

Friendly  qui2  that  kids  like  using.  By  Andy  Barton 


Spelling  Flashcards  is  a  simple, 
versatile  spelling  quizzer  for  all 
ages.  It's  enjoyable  for  kids,  without 
intimidating  them  by  excessive  flash. 
This  BASIC  Program  works  on  all 
Atari  8-bit  computers  with  at  least 
48K  memory  and  a  disk  drive. 


spelling  Flashcards  is  a  simple,  ver- 
satile spelling  drill  for  all  ages.  Like 
Math  Flashcards,  the  predecessor 
program  I  wrote  (Antic,  October 
1987),  this  spelling  quizzer  program 
is  friendly  and  interesting  with  a  lit- 
tle color  and  music.  But  it  doesn't  dis- 
tract or  intimidate  kids  with  unduly 
flashy  displays. 

You  easily  create  your  own  lists  of 


hard-to-spell  words.  Then  Spelling 
Flashcards  will  randomly  pick  a  word 
and  flash  it  on  the  screen. 

If  you  spell  the  word  correctly, 
you're  rewarded  with  an  ever- 
changing  little  tune.  Otherwise,  the 
screen  turns  red,  the  word  flashes 
again,  incorrect  letters  are  blanked  out 
and  you  get  to  try  again.  After  you 
type  the  word  correctly,  that  word 


will  be  repeated  three  more  times  dur- 
ing the  quiz  to  help  you  get  it  down 
perfectly. 

Speed  is  important,  too.  If  you  take 
too  long  to  spell  a  word,  the  program 
considers  it  incorrect.  At  the  end  of 
the  quiz.  Spelling  Flashcards  shows 
you  the  number  of  correctly  spelled 
words  and  the  total  number  of  words 
tried. 

GEHING  STARTED 

If  you  put  Spelling  Flashcards  on  a 
separate  disk,  its  menu  will  be  easier 
to  read.  Format  a  fresh  disk  with  DOS 
2.0  or  DOS  2.5  and  write  the  DOS 
flies  to  it.  Type  in  Listing  I,  SPELL- 
ING.BAS,  check  it  with  TYPO  II  and 
SAVE  a  copy  before  you  RUN  it. 

If  you  have  trouble  typing  the  spe- 
cial characters  in  lines  5860-5870, 
don't  type  them  in.  Instead,  type  List- 
ing 2,  check  it  with  TYPO  II  and  SAVE 
a  copy.  When  you  RUN  Listing  2,  it 
creates  these  hard-to-type  lines  and 
stores  them  in  a  file  called  LINES.  LST. 
To  merge  the  two  programs,  LOAD 
"DrSPELLING.BAS  "  and  then  ENTER 
"D :  LINES.  LST  "  Remember  to  SAVE 
the  completed  program  before  you 
RUN  it. 

When  RUN,  the  program  displays 
a  file  menu  of  all  the  Spelling  Flash- 
card  lists  on  your  disk.  The  menu  at 
the  bottom  of  the  screen  lets  you  load 
one  or  more  Spelling  Flashcards  lists, 
edit  a  list,  or  create  a  new  list. 

Type  a  list's  number  to  load  it  into 
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Spelling  Flashcards.  You  can  choose 
a  single  number,  several  numbers 
separated  by  commas  or  two  numbers 
separated  by  a  hypen,  indicating  a 
block  of  files.  For  example,  type  a  3 
to  load  list  number  3.  Type  3,5,9  to 
load  lists  3,  5  and  9.  Type  5-8  to  load 
lists  5,  6,  7  and  8. 

Edit  a  list  by  typing  E  followed  by 
the  number  of  the  list  you  wish  to 
edit.  For  example,  typing  E7  will  let 
you  edit  list  number  7.  Finally,  type 
N  to  create  a  new  list  of  spelling 
words. 

CREATING  A  LIST 

If  you're  typing-in  SPELLING.BAS, 
you'll  need  to  create  a  few  lists  before 
you  continue.  Antic  Disk  owners  will 
find  several  spelling  lists  on  this 
month's  disk.  These  lists  have  a  .DAT 
file  extender 

To  begin  your  list,  type  N.  The  pro- 
gram will  ask  you  for  a  title  of  your 
list.  The  title  can  be  up  to  8  charac- 
ters long,  and  will  be  used  to  store 
your  list  to  a  disk  file.  While  you  may 
type  most  anything  you  wish,  the 
program  will  adjust  it  to  conform  to 
a  standard  Atari  disk  filename,  and 
add  a  .DAT  extender 

Spelling  Flashcards  will  display  the 
adjusted  filename  and  ask  you  if  it  is 
correct.  Press  N  to  change  the  file- 
name, or  press  any  other  key  to  ac- 
cept it.  Pressing  [RETURN]  without 
typing  a  title  sends  you  back  to  the 
main  menu  without  creating  any  new 
lists. 

Next  you're  asked  to  select  the 
number  of  seconds  you  wish  the 
word  to  be  flashed  on  the  screen.  The 
default  is  0.75,  but  younger  children 
might  find  one  or  two  seconds  more 
reasonable  and  less  threatening.  You 
can  also  change  this  value  later  in  the 
Edit  mode,  if  you  wish. 

Now  type  in  your  list.  Each  word 
can  be  as  many  as  15  characters  long, 
including  hyphens,  apostrophes,  and 
spaces.  Numbers  and  lowercase  letters 
are  not  allowed.  You  may  have  up  to 
40  words  per  list.  When  you're  done, 
press  [RETURN]  to  save  your  list  to 


disk. 

PLAYING  THE  GAME 

After  the  program  loads  the  list(s) 
you  selected,  you'll  see  the  words  dis- 
played onscreen  for  you  to  review. 
Press  any  key  to  start  the  drill. 

Spelling  Flashcards  randomly 
selects  a  listed  word  and  briefly 
flashes  it  onscreen.  Your  task  is  to  type 
it  in.  The  [DELETE]  and  arrow  keys 
will  fix  any  typing  mistiikes  you  make. 
After  you  spell  the  word,  the  program 
will  check  it.  There  is  no  need  to  press 
[RETURN]. 

Correctly  spelled  words  are  re- 


pressed, a  Graphics  2  window  opens 
in  the  middle  of  the  screen.  You'll  en- 
ter and  edit  words  within  this 
window. 

To  add  a  word  simply  type  it.  To 
edit  a  word,  type  the  number  of  the 
word  in  the  list  displayed  onscreen, 
then  edit  the  word.  You  don't  need 
to  press  [RETURN],  but  the  second 
digit  of  a  two-digit  number  must  be 
pressed  within  0.5  seconds. 

The  [DELETE]  and  [CONTROL]- 
[DELETE]  keys  work  in  the  normal 
Atari  fashion.  Move  the  cursor  (a  blue 
bar  below  the  letters)  with  the  left  and 
right  arrow  keys.  You  do  not  need  to 


Correctly  spelled  T^^ords 

are  re^varded  T^^ith  a  brief 

ever-changing  tune. 


warded  with  a  brief  ever-changing 
tune.  Misspelled  words  turn  the 
screen  red  and  must  be  corrected. 
They  are  repeated  three  times  on  or- 
ange screens,  mixed  in  with  new 
words. 

If  you  are  totally  stuck,  press  [RE- 
TURN] to  flash  the  word  onscreen 
again.  This  counts  as  a  misspelling.  If 
you  do  not  type  the  word  quickly 
enough,  you'll  also  be  penalized  for 
a  misspelling. 

Errors  are  not  monitored  directly, 
but  the  number  of  tries  and  the  num- 
ber of  correct  answers  are  counted. 
The  purpose  of  the  drill  is  to  teach, 
not  penalize. 

When  you're  done,  Spelling  Flash- 
cards  plays  a  longer  random  tune. 
Press  any  key  to  go  on  to  your  next 
list  or  return  to  the  main  menu. 

EDIT  A  LIST 

The  New  List  and  Edit  options 
share  a  section  of  programming.  Ad- 
ding, correcting  and  deleting  words 
is  done  the  same  way.  When  a  key  is 


press  [CONTROL]  to  use  these  keys. 
Press  [RETURN]  to  accept  the  word 
and  display  the  updated  list.  To  de- 
lete a  word,  simply  bring  it  into  the 
window  by  typing  its  number,  [DE- 
LETE] or  [SPACEBAR]  over  each  let- 
ter and  press  [RETURN] .  When  you 
are  finished  with  a  list,  press  [RE- 
TURN] to  save  it  to  disk  and  return 
to  the  main  menu. 

PROGRAM  TAKE-APART 

Spelling  Flashcards  is  written  up- 
side down,  with  the  initialization  rou- 
tines and  lesser-used  portions  at  the 
end  of  the  program.  The  frequently 
used  subroutines  are  at  the  top,  where 
BASIC  can  find  them  quickly. 

Lines  5500-5570.  The  initialization 
section  starts  with  a  table  of 
parameters  which  you  can  customize. 
DVIEW  in  line  5550  is  the  default 
value  for  the  length  of  time  a  word 
is  flashed  on  the  screen.  You  can  ex- 
periment with  different  values  when 
you  enter  or  edit  a  list.  If  you  want 
the  timer  to  use  a  different  default 


FEBRUARY  1989 


23 


value,  put  it  in  line  5550.  If  you 
change  line  5550,  remember  to  SAVE 
the  program  to  make  the  change  per- 
manent. 

Lines  5860-5870  contain  a  speedy 
machine  language  "memory  move" 
routine,  a  modified  version  of  a  USR 
routine  from  Antic  Tech  Tips  (Janu- 
ary 1985,  page  64).  Here,  I  use  it  to 
copy  the  character  set  from  ROM  to 
RAM,  where  it  is  redefined  at  line 
5900. 

Lines  4500-5020:  This  routine 
reads  and  displays  the  disk  menu.  See 
Antic  Tech  Tips,  July  1986,  page  87. 

The  main  menu,  as  well  as  word 
lists,  are  displayed  in  the  largest 
graphics  mode  possible.  The  program 
uses  Graphics  2  if  the  list  is  10  words 
or  less  and  Graphics  1  if  it  is  20  or  less. 
Larger  lists  use  Graphics  0.  Lines  4600 
and  3130  do  this  with  a  little  Boolean 
math.  In  one  line,  this  routine  does 
the  same  work  as  three  or  four  lines 
of  IF-THEN  statements.  (See  Antic, 
August  1984,  pages  48-52.) 


HAVE  A  QUESTION 

ABOUT  YOUR 

SUBSCRIPTION? 

Get  an  answer  fast! 

Call  Toll  Free: 
(800)   347-6969 

Write: 

Antic  Customer  Service 

P.O.  Box  1919 

Marion,  OH  43306 


Line  3230-3360.  The  main  loop  of 
the  program  is  short,  but  uses  subrou- 
tines extensively.  And  many  of  these 
subroutines  call  other  subroutines. 
The  result  is  a  compact,  easy-to-type 
program. 

Within  this  loop,  the  matrix 
TRACK(X,X)  keeps  track  of  the  status 
of  the  words  in  your  list.  It  has  two 
rows.  Row  (0,X)  contains  a  random 
series  of  numbers.  Each  number  cor- 
responds to  a  word  in  the  spelling  list. 
The  program  uses  this  information  to 
build  its  random  list  of  words. 

Row  (1,X)  records  how  many  more 
times  a  misspelled  word  must  be 
repeated.  TRACK(1,0)  is  a  flag  which 
directs  the  main  loop  to  the  proper 
combination  of  subroutines  for  either 
the  basic  drill  or  the  misspelled  drill. 

Lines  110-140.  The  first  subroutine 
is  a  timer  It  is  short,  clean  and  ac- 
curate. Probably  most  every  other 
programmer  knows  about  it.  But  I  just 
recently  stumbled  upon  it  in  a  article 
I  read  but  forgot  years  ago  (Antic, 
March  1984,  pages  19-21).  If  you're 
not  familiar  with  Atari's  built-in  count- 
down timers,  take  a  second  to  check 
them  out. 

A  countdown  timer  is  a  system 
timer  that  counts  backwards  and  uses 
jiffies  (60  jiffies  =  one  second)  instead 
of  seconds.  This  program  uses 
CDTMV3,  system  timer  3-  Here's  how 
to  use  countdown  timers: 

1.  Determine  the  length  of  time  you 
need  to  monitor,  and  convert  this 
value  into  jiffies.  Five  seconds,  for  ex- 
ample, is  equal  to  300  jiffies. 

2.  Separate  this  value  into  low-bytes 
and  high-bytes.  The  low  and  high- 
byte  values  of  300,  for  example,  are 
44  and  1. 

3.  Temporarily  turn  off  the  clock 
by  placing  a  1  (or  any  non-zero  value) 
into  CRITIC,  the  critical  I/O  region 
flag  (memory  location  66,  $42). 

4.  Set  the  timer  by  placing  your  low 
and  high-byte  values  into  the  count- 
down timer  register  In  this  example, 
we're  using  countdown  timer  3, 
CDTMV3,  which  is  accessed  through 
memory   locations    540   and    541 


(iS021C  and  S021D). 

5.  POKE  a  zero  into  CRITIC  to  turn 
the  clock  back  on  and  start  counting. 

6.  Monitor  countdown  timer  flag  3, 
CDTMF3,  memory  location  554 
($022A).  When  PEEK(554)=  1,  time  is 
up!  See  line  3880  where  the  program 
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is  waiting  for  either  a  key  to  be 
pressed  or  the  timer  to  run  out  before 
it  moves  on. 

Here's  one  last  item  you  may  wish 
to  customize.  I  hate  pressing  [RE- 
TURN] if  it  is  not  absolutely  necessary. 
This  program  was  designed  with  that 
bias  in  mind.  However  this  poses  a 
problem  when  you  could  choose  to 
enter  a  1  or  2  digit  number  This  hap- 
pens in  the  Edit  section  of  the  pro- 
gram when  you  could  choose  to  edit 
word  1  or  word  15. 

Problem:  How  is  the  program  go- 
ing to  know  when  you  are  through 
if  you  don't  press  [RETURN]?  Solu- 
tion: set  a  brief  time  limit  for  enter- 
ing the  second  digit.  Line  3870  does 
this:  SEC  =  0.5:GOSUB  110  sets  the 
timer  for  half  a  second.  If  this  is  too 
short,  you  can  increase  the  0.5  to  a 
larger  number  Again,  remember  to 
SAVE  the  program  if  you  want  to  make 
the  changes  permanent.  A 

Andy  Barton  has  been  a  frequent  Antic 
contributor  since  1984.  To  his  credit  are 
such  programs  as  Son  Of  InfoBits  and 
TYPO  II,  Antic's  type-in  listing  proof- 
reader. TYPO  II  has  appeared  in  every 
issue  since  January  1985. 

Listing  on  page  34 
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SOFTWARE  LIBRARY 


TYPING  SPECIAL  AIARI  CHARACTERS 


The  Atari  Special  Characters  and 
the  keys  you  must  type  in  order  to 
get  them  are  shown  below: 

For  [CONTROL]  key  combina- 
tion, hold  down  [CONTROL]  while 
pressing  the  next  key.  For  inverse 
[CONTROL]  [A]  through 
[control]  [Z],  press  the  [3] 
key— or  [A  ]  on  the  400/800— then 
release  it  before  pressing  the  next 
key  (Press  [  3  ]  or  [  yk  ]  again  to  turn 
off  inverse.)  For  [ESC]  key  combina- 
tions, press  [ESC]  and  then  release 
it  before  pressing  the  next  key. 

Carefully  study  the  chart  above 
and  pay  close  attention  to  differ- 
ences between  lookalike  characters 
such  as  the  slash  key's  [/]  and  the 
[CONTROL]  [F]  symbol  [0]. 


NORMAL  VIDEO 

FOR                  TYPE 

FOR              TYPE 

THIS                  THIS 

THIS             THIS 

HCTRL    , 

ffi  CTRL  S 

fflCTRL  A 

9  CTRL  T 

□  CTRL  B 

B  CTRL  U 

ffl  CTRL  C 

D  CTRL  V 

SI  CTRL  D 

ffl  CTRL  W 

ffl  CTRL  E 

ffl  CTRL  X 

0  CTRL  F 

B  CTRL  Y 

51  CTRL  G 

ffl  CTRL  Z 

a  CTRL  H 

H  ESC  ESC 

a  CTRL   I 

BE  ESC  CTRL   - 

B  CTRL  J 

ffl  ESC  CTRL   = 

a  CTRL  K 

ffl  ESC  CTRL  + 

B  CTRL  L 

ffl  ESC  CTRL   * 

n  CTRL  M 

m  CTRL    . 

□  CTRL  N 

ffi  CTRL    ; 

B  CTRL  0 

H  SHIFT  = 

ffi  CTRL  P 

H  ESC    SHIFT 

B  CTRL  Q 

CLEAR 

e  CTRL  R 

ffl  ESC  DELETE 

IB  ESC  TAB 

INVERSE  VIDEO 

FOf 

1               TYPE 

THIS              THIS                   1 

□ 

ESC 

SHIFT 

DELETE 

□ 

ESC 

SHIFT 

INSERT 

□  ESC                     1 

CTRL 

TAB 

□ 

ESC 

SHIFT 

TAB 

a 

A  CTRL    . 

□ 

A  CTRL    ; 

0 

A SHI  FT  = 

□ 

ESC  CTRL  2 

□ 

ESC 

CTRL 

DELETE 

D  ESC                    1 

CTRL 

INSERT 

TYPO  II  AUTOMATIC  PROOFREADER 

TYPO  II  automatically  proofreads  Antic's  type-in  BASIC  listings.  Type  in  the  listing  below  and  SAVE  a  copy  to  disk 
or  cassette.  Now  type  GOTO  32000.  At  the  prompt,  type  in  a  single  program  line  without  the  two-letter  TYPO  II 
code  at  the  beginning.  Then  press  [RETURN] . 

Your  line  will  reappear  at  the  bottom  of  the  screen.  If  the  TYPO  II  code  does  not  match  the  code  in  the  magazine, 
then  you've  mistyped  your  line. 

To  call  back  a  previously  typed  line,  type  [*],  then  the  line  number,  then  [RETURN].  When  the  completed  line  ap- 
pears, press  [RETURN]  again.  This  is  how  TYPO  II  proofreads  itself. 

To  LIST  your  program,  press  [BREAK]  and  type  LIST.  To  return  to  TYPO  II,  type  GOTO  32000.  To  remove  TYPO 
II  from  your  program,  type  LIST  "D:FILENAME",0,31999,  then  [RETURN],  then  NEW,  then  ENTER  "D:FILENAME  ", 
then  [RETURN].  Now  you  can  SAVE  or  LIST  your  program  to  disk  or  cassette. 


^ 


Don't  type  the 
TYPO  II  Codes! 


UB 

un 

H5 

BN 
YC 

EM 

HS 

XH 


TH 
MF 


32800  REM  TYPO  II  BY  ONDY  BARTON 

32010  REM  UER.  1.0  FOR  ANTIC  MAGAZINE 

32020  CLR  !DIM  LINES C120 J s CLOSE  a2:CLD 
5E  a3 

32030  OPEN  »2,4, 0, "E" : OPEN  »3>S,0,"E" 

32040  ?  "IS"!  POSITION  11,1:?  •■DBatCBnilB" 

32050  TRAP  3204O!POSITION  2.3:?  "Type 
in  a  progran  line" 

32060  POSITION  1.4  =  ?  INPUT  «»2;LINE 

S:IF  LINES=""  THEN  POSITION  2,4!LIST  B 

:GOTO  32060 

32070  IF  LINESCI, !>="»"  THEN  B=UALcLIN 

ES t2,LEN tLINESJi J :POSITiaN  2,4!LI5T  B: 

GOTO  32060 

32080  POSITION  2,10:?  "CONT" 

32090  B=UALCLINES> :POSITION  1.3:?  "  "; 


NY 
CN 
ET 

CE 
QR 


UU 

MJ 
JU 
EH 
BH 
HB 
IE 

UG 


2100 

2110 

2120 

:  POSI 

2130 

2140 

INES  = 

TO  32 

2150 

NS+  CC 

2160 

2170 

2180 

2190 

2200 

2210 

LCODE 

2220 

natc 
ove  .  " 


POKE 
POKE 

?  "K" 

TION 
C  =  0:  A 
POSIT 
....  TH 

050 
FOR  D 
«flSC  t 
CODE  = 
CODE  = 
HCODE 
LCODE 
HCODE 
POSIT 
I 

POSIT 
h  pre 
:GOTO 


842,13:ST0P 

842.12 

:  POSITION  11.  l:?  "■DaSIIWUtn 

2.15:LIST  B 

N5  =  C 

ION  2.16:INPUT  »3;LINES:IF 

EN  ?  "LINE  ";B;"  DELETED" :G 

=1  TO  LENCLINES> : C=C+1 : ANS= 

LINES  CD. D>>]  :NEXT  D 

INT  tAN5''676> 

AN5- tC0DE»676> 

=  INT  tC0DE'26> 

=C0DE-fHC0DE«25>+65 

=HC0DE*65 

ION  0.16:?  CHRS CHCODEI ;CHR$ 


ION  2.13:? 

ss  ■[iir^tioniitrai 

32050 


■If  CODE  does  no 
and  edit  line  a 
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25 


YOU  WONT  LOSE  YOUR  SHIRT  TO  THE  8-BIT  CROUPIER 

ROULETTE,  ATARI  STYLE 


Article  on  page  18 


LISTING  1 


Don't  type  the 
TYPO  II  Codes! 


( 


■C^ 


RR 

au 

IL 


ap 
us 


uu 

EC 

so 

JU 


xa 


ns 


XT 


RM 


FU 


ns 

SA 
XK 
ftV 
LU 
OH 


RC 
FH 
HB 


YO 


KN 


RU 

UM 

UJ 
GP 


NX 
XI 
JR 
SR 
UG 

TX 
TM 
UU 

OD 


26 


2  REM  ROULETTE 

4  REM  BY  niCHAEL  PEMBERTON 

6  REM  CCS1988.  ANTIC  PUBLISHING 

le  GRAPHICS  2  =  ?  «6:?  »»6  :  ?  «6  »  ?  W6;" 

ROULETTE"!?     :?     : ?    «6 ; "  mH" s 

?    t<6;"nichael    aU    penberton" 
20    ?    ■•  One    Mortent    Please":?    " 

Screen    Uili    Go    Blank    For    18    Seconds" 
180    DIM    C0LRSt36> .STRC38> .5THEETC12> ,L 
N6C11J.BETSC370» , SORE  (22 1 , AS cli, SPLIT c 
5e>.C0Lc3i,MHEELc38i 

110  GRIDFIX=4110:CHECKCASH=4210!PLACEB 
ET=4310! ZERO=4470 

120    COLRS="RBRBRBRBRBBRBRBRBRRBRBRBRBR 
BBRBRBRBR" 
130    REM    BETTING    MATRIX 

140  BETSci,74>  ="HBIS'  eqfrsshhti  iu  j  JwKkw 
llxMHMnnzooaBppHffl>:>'.l«ffl»«/-a0Fin3BH6eB9HH<H 
a?BBBeBE! ! HS*d" 

141  BETS  175,  148»="B>'.>'.aSJ8DLaNBPPaRRaTTBU 

usxxazzBNsS'^^a§BsnaaaseL]>9,a^[3a2aLi5sa8nii 

;SS>9SASffiD   Gone" 

142  BET$cl4  9,222>="Be&&WIHK[IIMG0Daa0C15SO 

UUBUUBY  YB  c  cai  3  D nn&&HI£  CX+S  .  BBir]n4»4»J7S 

S !  niD=BIleBBffiCfflfflFXXb" 

14  3  BETSc223,296>="fflBiB*  eqfrsshhtiiuJJw 
kkwllxHNifnnz  o  offlp  pBnsan[|[][1[ICI[l[|[inBCBBBCC 
CBCCnXXXXXXXXXXXB" 

144  BETS  C297,3  70>="BBBH«H««BHBBI1BBB«HB 
BBBBBBBBBBBBBBBBBBBBBBnnnannnnBSBBRSBa 
aBBaHHHHHHBHnBHHH " 

145  BETSC220.220»=CHRSC34» :BETSC221,22 
1>=:CHRSC34J  :F0R    X  =  285    TO    295!BET*cX," 
=  CHRS(155>  >NEXT    X 

146  FOR    1=1    TO    38:READ    X' 
XT    I 

150    REM    CLEAR    ARRAYS 

160    GOSUB    4470 

300    REM    COLOR    GAMEBOARD 

305    POKE    559,0 

310  FOR  1=8  TO  3:P0KE  53256+1 , 3 : NEXT  I 

SPOKE  53268, 1!I=PEEKC186» :I=I-8!P0KE  1 

86.1 

320  POKE  623,1<F0R  J=8  TO  3>P0KE  704+J 

,54>NEXT  JsPOKE  54279, I s PnnEn=I»256 

358  FOR  J=PnnEn  to  PnnEn+2847iP0KE  J, 8 

■NEXT  J 

378  FOR  J=PMHEM+1861  TO  PnMEM+1874 i POK 

E  J,287sP0KE  J+16,4B:P0KE  J+32.204sPOK 

E  J+256,143'P0KE  J+272, 112 i NEXT  J 

388  FOR  J=PMMEM*1349  TO  PMMEM+1362 < POK 

E  J,15:P0KE  J+224 , 199 : POKE  J*248,56>P0 

KE  J+256,199!NEXT  J 

398  FOR  J=PnMEM+1829  TO  PMnEM+lB42 i POK 

E  J,227!P0KE  J+16,2BiP0KE  J*32,3:NEXT 

J 

488  FOR  J=PMMEn+805  TO  PMMEM+818 i POKE 

J,3:P0KE  J+32,3:NEXT  J 

410  GRAPHICS  e:POKE  71( 


.X> 


iUHEELCI>=X:NE 


.196>P0KE  559,6 


420  POKE  53277,3 

430  POKE  53248, 70:POKE  53249 , 102 : POKE 

53250,134 :POKE  53251 , 166 ) POKE  53252,19 

8 

448  REM  GAME  SETUP 

458  CASH=588:0LDN0=8 

468  HP0S=2:UP0S=e 

508  GOSUB  5810 

518  POSITION  2,12:?  "CASH  AUAILABLE:  S 

";CASH 

980  REM  CURSOR  MOUEMENT 

1000  POSITION  HP0S+1,UP05>?  "H"; 

1010  IF  STICKC0J=14  THEN  7  "ffi";:UP0S=U 

POS-1 

1020  IF  STICKC0J=13  THEN  7  "ffi";:UPOS=0 

P05  +  1 


TAl 
FA 
DI 
NJ 

xn 

XX 
JO 

UY 
NM 
XH 
UU 

KU 

FI 
KD 
IU 
PT 
NR 
YC 
XA 
KJ 

FJ 
HS 
IM 

HA 

OG 

5Z 
OZ 

UH 

RG 
AC 
GN 
GN 

FG 

MI 
DO 

AS 
BH 

YM 
FZ 

UL 

BA 
KU 


AR 
IZ 

PO 
UO 

DK 

BD 


1030  IF  STICKcei: 

OS  +  1 

1040  IF  STICKtOJ: 

P05-1 

1045  IF  UPOS<0  THEN  UP0S=9 : POSITION  HP 


7  THEN  ?  ■ 
11  THEN  ? 


iHP05=HP 
:   :HP0S  =  H 


OS, 8  :? 


•ffi> 


1047  IF  UP0S'>9  THEN  UP0S  =  8 :  POSITION  HP 
05,1:?  "ffi"; 

1848  IF  HP0S>38  THEN  HP0S=2 < POSITION  3 
UPOS  !  ?  '*%'*  * 

1049  IF  HP0S<2  THEN  HP0S=38 : POSITION  3 
7, UPOS: 7  "ffl"; 

1050  FOR  1=1  TO  5:K=RND(e> iNEXT  I 
1060  IF  STRIGC0i=0  THEN  X=PEEKt93>!7  " 
«": :GOTO  1080 

1865  IF  PEEK(53279>=6  THEN  2818 

1070  GOTO  1018 

1875  REM  INTERPRET  BETS 

1888    I  =  UP0S»37  +  HP0S-HBET  =  «SCCBET«<I.I 

■*■» 

1885  IF  BET=e  THEN  7  "Q" > GOSUB  411817 

"S"; <60T0  1818 

1890  IF  BET<39  THEN  1288 

1188  IF  BET=39  THEN  1268 

1118  IF  BET>39  AND  BET<98  THEN  1318 

1128  IF  BET>97  AND  BEKiei  THEN  1418 

1138  IF  BET>18e  AND  BET<113  THEN  1448 

1140  IF  BET>112  AND  BETK125  THEN  1480 

1150  IF  BET>124  AND  BET<147  THEN  1520 

1160  BET=BET-146:0N  BET  GOTO  1558,1568 

,1578,1588,1590,1680,1618,1628,1630 

1190  REM  RECORD  UARIOUS  BETS 

1200  REM  STRAIGHT  BET 

1205  IF  BET=37  THEN  POSITION  2,15:?  "D 
DBET  ON  0  (Y^N>"J :GOSUB  4310>G0T0  1240 

1206  IF  BET=38  THEN  POSITION  2,15:?  "D 
□BET  ON  08  (Y^N>"i :GOSUB  4310:GOTO  124 
0 

1210  POSITION  2.15:?  "DDBET  ON  ";BET;" 

cY^'Ni";  :GOSUB  4318 
1240  STR(Bi:T>=STR(BETi+AMT:GOTO  1088 
1250  REM  5  LINE  BET 

1260  POSITION  2,15:?  "DOLINE  BET  t5>  c 
Y^Ni"; :GOSUB  4310 
1290  LN5=LN5+AMT:G0T0  1000 
1300  REM  SPLIT  BET 
1310  POSITION  2,15:BET=BET-39 
1320  IF  BET<34  THEN  7  "ODSPLIT  BET  ON 
";BET;",";BET+3;"  cV^N>";iGOTO  1368 
1330  IF  BET=58  THEN  7  "DDSPLIT  BET  ON 
0,00  (Y^N>";:GOTO  1360 
1340  J  =  BET-33:  J  =  J  +  INTC(J-1J/'2J 
1350  ?  "ODSPLIT  BET  ON  "; J; ", "; J*l; "  c 
Y^N>"; 

1360  GOSUB  4310 

1390  SPLIT tBET>=SPLITtBET>+AMT<G0TO  10 
00 

1400  REM  COLUMN  BET 

1410  POSITION  2,15:7  "DOBET  ON  COLUMN 
";BET-97;"  cY^N» ";: GOSUB  4310 
1420  COL  (BET -97>=C0LcBET-97>+AMT: GOTO 
1000 

1430  REM  STREET  BET 
1440  BET=BET-100:POSITION  2- 
T  ON  STREET  "; BET+2«BET-2; "- 
T-1;",";BET+2»BETj"  cY^N»"; 
1450  GOSUB  4318 
1468  STREET cBET>=STREET(BET>+AnT: GOTO 

1478  REM  LINE  SIX  BET 

1488  BET  =  BET-112iJ  =  BET+cBET-m»2:  POSIT 

ION  2,15 

1485  7  "DQLINE  BET  ON  " ; J ; " , " i J+1 j " , " ; 

J  +  2;",";  J  +  3;","J  J*4;","i  J  +  5;"  cY-'N*"; 

1498  GOSUB  4318 


.15:?  "ODBE 
."iBET  +  2»»BE 


ANTIC  SOFTWARE  LIBRARY 


ISee  LN6cBET>=LN6cBETi+AnTsG0T0  1808 

1518  REM  SBUORE  BET 

1528  BET  =  BET-124:  J  =  BET  +  INTccBET-l>''2>  : 

POSITION  2.15:?  "aaBET  ON  SQUARE  ";J;" 

,";  J  +  1  ;".•■;  J  +  3 ;",••;  J  +  4;"  CY^NJ"; 

1538  GOSUB  4318 

1548  SQREcBET)=SaREcBET>+AnT:GOTO  1888 

1558  POSITION  2,15s?  "□□BET  ON  19-36  c 
Y^N>";  iGOSUB  4318  :  HI  =  HI  +  AI1T  :  GOTO  1888 
1568  POSITION  2,15i?  "DaBET  ON  1-18  cY 
^N>";:GOSUB  4318 : LO=L0+flnT : GOTO  1888 
1578  POSITION  2,15:?  "□□BET  ON  ODD  NUM 
BERS  cY^Ni"; :GOSUB  4318 : ODD=OOD+nnT : GO 
TO  1888 

isae  POSITION  2,15:?  "□□bet  on  euen  nu 

nOERS  CY-'NI";  :G0SUB  4318  :  EUEN  =  EUEN  +  AnT 

:G0TO  1888 

1598  POSITION  2,15 

BERS  CY^NJ" 

TO  1888 

1600  POSITION 

UMBERS  CY^NJ" 

AMTiGOTO  1088 

1618  POSITION  2,15:? 


EN  tYz-NJ 

TO  1888 

1628  POSITION  2 


?  "□□BET  ON  RED  NUM 
GOSUB  43ie:RED=RED+0MT:G0 

2,15:?  "□□BET  ON  BLACK  N 
:GOSUB  4310:BLACK=BLACK+ 

■□□BET  ON  1ST  DOZ 
GOSUB  4318:DZN1=DZN1+AMT:G0 


EN  tY^NJ 

TO  1888 

1630  POSITION  2.15 


15:?  "□□BET  ON  2ND  DOZ 


GOSUB  4318:DZN2=DZN2+nMT:G0 

■□□BET  ON  3RD  DOZ 
EN  (Y^N>^^;  :G0SUB  4318  :  DZN3  =  DZN3  +  AMT  :  GO 
TO  1888 

2000  REM  SPIN  THE  UHEEL 

2818  POSITION  2,12:?  "□□□□□□■';:  POKE  75 
2,1 

2828  X=INTc288kRND(8>i :IF  X<76  OR  X>19 
8  THEN  2828 

2022  ?  "UINNIN6  NUMBER  IS>  "; 
2824  FOR  1=8  TO  X-1:P0SITI0N  21.12:J=c 
C0LDN0  +  I>-38«INTCC0LDN0  +  IJ^38J>+1:?  ■■ 

2026'lF  UHEELCJ>=37  THEN  ?  ■■B^^:G0T0  20 

32 

2828    IF    UHEELcJi=38    THEN    ?    ■■BB'^iGOTO    2 

Q  -JO 

2838  7  UHEELCJl 

2832  FOR  DELAY=1  TO  5>NEXT  DELAY:NEXT 

I 

2848  NUM=UHEELCJS :OLDNO=JiPOKE  752,8 

3800  REM  CALCULATE  UINNINGS 

3885  POSITION  2,14 

3818  REM  STRAIGHTS 

3828  IF  STRcNUMa  THEN  UIN=UIN+35»STR cN 

UM>  :CASH  =  CASH  +  STRCNUM1  >?  ■■UIN  STRAIGHT 

BET:";35wSTRcNUM> 
3838  REM  FIUE  LINE 
3848  IF  LN5  AND  CNUM<4  BR  NUn>36>  THEN 

UIN=UIN+6«LN5:CnSH=CA5H+LN5i?  "UIN  LI 
NE  BET  C5> :";6«LN5 
3858  REM  SPLITS 
3868  FOR  1=1  TO  33 

3862  IF   NOT  cSPLITcli  AND  CNUM=I  OR  N 
Un=I+3>>  THEN  3865 

3063  MIN  =  HIN  +  17»«5PLITCIJ  :  CASH  =  CASH  +  SPL 
ITCIJ:?  "WIN  SPLIT  BET  :  ■■ ;  17«SPLIT  cl» 
3865  NEXT  I 

3067  FOR  1=34  TO  57 : J=I-33 : J= J+INT c c J- 
1»^2> 

3878  IF   NOT  cSPLIT<I>  AND  fNUM=J  OR  N 
UM=J+1»>  THEN  3072 

3871  MIN=UIN+17»SPLITCIJ : CASH=CASH+SPL 
ITcl>:7  "WIN  SPLIT  BET  :  ■■ ;  17«SPLIT  ci  j 
3072  NEXT  I 
3875  IF   NOT  cSPLIT c5Bi  AND  cNUM=37  OR 

NUM=38>>  THEN  3898 
3877  MIN  =  UIN  +  17»»SPLITC58»  :  CASH  =  CASH  +  SP 
LITC58J:?  ■■UIN  SPLIT  :■■;  17»5PLIT  C58> 
3080  REM  DROP  OUT  0  AND  80 
3090  IF  NUM>36  THEN  3418 
3188  REM  COLUMNS 

3118  IF  INT(NUM/'3i=NUM^3  AND  COL  C3>  TH 
EN  UIN=UIN+2MCaLc3i : CASH=COSH+COL C3> :? 

"UIN  COLUMN  3  BET  :  ■■ ;  2wC0L  c3i 
3128  IF  INTccNUM  +  l»/'3»  =  <NUM+l>^3  AND  C 
0L(2>  THEN  UIN=UIN+2«CDLC2> :CASH=CASH+ 
CDLC21:?  "UIN  CBLUMN  2  BET : " ; 2wC0L (2) 
3138  IF  INT«CNUM+2>''3»  =  CNUM+2J^3  AND  C 
OLcl>  THEN  UIN=UIN+2«C0LC1> :CASH=CASH+ 
COLcli:?  ■■UIN  COLUMN  1  BET  :  •■ ;  2mC0L  cl> 
3148  REM  STREETS 
3158  STCNT=NUM:I=8 


KI 

RU 
ZK 


DS 
DZ 
MZ 


FM 
GM 
FK 
VI 
DE 


FO 
KC 
MG 


UL 

BO 
CX 


IM 


MX 
DN 


FK 


LO 
LX 


EM 


PY 


EA 
PO 
SU 
ML 

BM 

KB 
OF 

DO 

RH 

RS 
NJ 

XJ 
NJ 

ON 
GN 

AN 

AP 
MX 

ao 

UF 
SI 

ZZ 

AU 
UJ 
CU 


FE 
UU 
AI 


■UIN  1ST  DOZEN 
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3168  STCNT=STCNT-3iI=I+l!lF  STCNT<1  TH 

EN  3188 

3178  GOTO  3168 

3188  IF  STREETtU  THEN  UIN=UIN+11kSTRE 

ETCIJ  :CASH  =  CASH  +  STREETCI»  :?  ■■UIN  STREE 

T  BET:";1H»5TREETCIJ 

3198  REM  SIX  LINE 

3208  FOR  J=l  TO  11 

3218  IF  LN6CJ>  AND  cl=j  OR  I=J+1>  THEN 

UIN  =  UIN  +  5MLN6CJ>  :  CASH  =  CA5H  +  LN6  c  Ji  s?  •• 
UIN  LINE  BET:";5«LN6(J> 
3228  NEXT  J 
3238  REM  SQUARES 
3248  FOR  1=1  TO  22 
3258  SQ=INTccI-l>/2J 

3268  IF  SQREcli  AND  cNUM=I+SO  OR  NUM=I 
+5Q+1  OR  NUM=I+SQ+3  OR  NUM=I+SQ+4J  THE 
N  GOSUB  4438 
3278  NEXT  I 
3288  REM  HIGH^LOU 

3290  IF  HI  AND  NUM>18  AND  NUM<37  THEN 
UIN  =  UIN  +  HI:CASH  =  CASH  +  HI:?  ■■UIN  19-36  B 
ET:";HI 

3388  IF  LO  AND  NUM<19  THEN  UIN=UIN+LO : 
CA5H=CA5H+L0:?  "UIN  1-18  BET:";LO 
3310  REM  ODD^EUEN 

3320  IF  ODD  AND  INT  cNUM-'2><  NUM>'2  THEN 
UIN=UIN+ODD:CASH=CASH+ODD:?  "UIN  ODD  B 
ET:";ODD 
3338  IF  EUEN  AND  INT cNUM^2> =NUM/2  THEN 

UIN  =  UIN  +  EUEN:CASH  =  CASH  +  EUEN:?  ■■UIN  EU 
EN  BET:^';EUEN 
3348  REM  BLACK^-RED 

3358  IF  RED  AND  COLR$  cNUM,  NUM>  =^'R'^  THE 
N  UIN  =  UIN  +  RED:CASH  =  CASH  +  RED:?  ■■UIN  RED 

BET:";RED 
3368  IF  BLACK  AND  COLRS  cNUM,  NUMi  =^^B^^  T 
HEN  UIN=UIN+BLACK:CASH=CASH+BLACK:?  "U 
IN  BLACK  BET : ".BLACK 
3378  REM  DOZENS 

3388  IF  DZNl  AND  NUM<13  THEN  UIN=UIN+2 
MDZNl:CASH=:CASH  +  DZNl:? 
BET:^^;2J*DZN1 
3398  IF  DZN2  AND  NUMMl  AND  NUM<25  THE 
N  UIN  =  UIN  +  2KDZN2:CASH  =  CASH  +  DZN2:?  '■UIN 

2ND  DOZEN  BET  :  ■■ ;  2mDZN2 
3480  IF  DZN3  AND  NUM>24  THEN  UIN=UIN+2 
wDZN3:CASH=CASH+DZN3:?  -UIN  3RD  DOZEN 
BET:^^;2»DZN3 
3410  GOSUB  4470 
3500  REM  DISPLAY  UINNINGS 
3518  ?  "CA5H  =  ";CASH;"   UINNINGS  =  ^^ ;  UIN 
3528  CASH=CASH+UIN:UIN=8:IF  CASH=8  THE 
N  4488 

PRESS  RETURN  TO  CONTINUE":?  ■■O 
■0'  TO  QUIT"; :INPUT  AS 
3540  IF  ASO^^B"  THEN  508 

3558  IF  CASH>5e8  THEN  ?  :?  "HQfflUHHEIDtDBH 
ODOBH.  VOU  SXaZI  •"iCASH-5ee>EN0 
3668  IF  CASH<6e8  THEN  7  >7  "BOIBBO-  VOU 

nOHD  •"jSee-CASH'ENO 
3578  7  >?  "H[niMI«««aJB«illltl ■  IT  COULD  BE 

UGRSE.">END 
4188  REM  6RIDFIX  SUBROUTINE 
4118  IF  X>64  AND  X<91  THEN  X=X-64iG0T0 

4138 
4128  IF  X<64  THEN  X=X+32 

4138  POSITION  HP0S,UP0S:7  CHR*cX>:iRET 
URN 

4288  REM  CHECK  CASH  SUBROUTINE 
4218  IF  CnSH-AMT<8  THEN  7  "QNOT  ENOUGH 

MONEY"iGOSUB  4118)G0T0  4238 
4228  CASH=CASH-AMT:POSITION  2,12:?  "CA 
SH  AUAILABLE<  »  esesS";CASH 

4238  RETURN 

4388  REM  PLACE  BET  SUBROUTINE 
4385  TRAP  4528 

4318  INPUT  A$:IF  A»<>"Y"  THEN  GOSUB  41 
"ffl"; :G0T0  1810 

7  "AMOUNT--;  :  INPUT  AMT  :  IF  AMT  =  0  TH 
EN  GOSUB  4118:7  "S";:GOTO  1818 
4338  GOSUB  4210 
4348  RETURN 
4488  REM  GONE  BROKE 
4418  7  "SORRY,  YOU'RE  BROKE- 
GAIN  CY^N>";  :INPUT  A$:IF  AS:: 
48 

4420  END 

4438  REM  SQUARE  UIN  SUBROUTINE 
4448  UIN=UIN+8MSaREcIi : CASH=CASH+SQRE f 
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3538    ? 
R    ENTER 


18:? 
4328 


I? 

.y. 


■[BTRY    A 
THEN    4 


BY 
OU 


UU 


BX 

fln 
DK 
JD 
01 
BL 


cn 


AH 


MB 


NU 


Nfl 

FA 
OT 

NX 


III?  "UIN  SOUflRE  BETs";8MSaREcI> 

4458  RETURN 

4468  REM  ZERO  ALL  BETS 

44  78  HI=e:La=e:0DD=e:EUEN=e:BLACK=8:RE 

D  =  eiDZNl  =  e<DZN2  =  e:DZN3  =  8:C0L  cl>=8sC0Lc 

2^ =8: COL  c3>=e>LN5  =  e 

4408  FOR  1=1  TO  38 : STR ci> =8 : NEXT  I^FOR 

1=1  TO  12iSTREETClJ=8!NEXT  I>FOR  1=1 
TO  ll:LN6CI9=8!NEXT  I 

4498  FOR  1=1  TO  22 : SORE ci> =8 > NEXT  IiFO 
R  1=1  TO  S8iSPLITcl>=8:NEXT  I 
4588  RETURN 
4518  REM  INPUT  ERROR 
4528  POP  :GOSUB  4118!G0T0  1888 
5888  REM  DRAM  BOARD 

5818  ?  "B": POSITION  2,8:?  "seeeeeseees 

2[I)15[Ilia[I121II124[I127[I)3eX33[I136[I]" 

5828  POSITION  2,2 >?  "X  eXBSBSBSBBSBBSB 

BSBBSBBSBBSBBSBBSBBX    (EBBS 2X5X8II111II14X1 

7(I128[r23[I26[I129[E32[I135[I]" 

5838    POSITION    2.4:?    "XOeiBBSBSBSBBSBBSB 

e[I]19[I122[II25[I]28[E313134[I]" 

5848    POSITION    2,6:?    "[BBBSeBHfflBHBBffiHeBB 

BBBBBBBBBBeBBBBBBBBai  (II15T12    1II       2N 

D    12  11       3RD    12  X" 

5858    POSITION    2.8:7    "  [BBBBHfflBBBSeBBB 

XBLACKX    ODD    II119-36II" 
5868    POSITION    2.18:?    "  HBBHeBeeBBBBa 

6138    REM    UHEEL    CONFIGURATION 

6148    DATA    38.27.18.25.29.12.8.19.31.18 

.6.21.33.16.4.23.35.14.2.37.28.9.26.38 

6158    DATA    11.7.28,32.17.5.22.34.15.3.2 

4.36.13.1 


LISTING  2 


BP 

18  REM 

IL 

28  REM 

BH 

38  REM 

00 

35  REM 

EU 

48  REM 

OTHER 

IJ 

58  REM 

PR 

68  DIM 

EEKcie 

UO 

78  FNS 

AME  OF 

RD 

88  ?  ■• 

5 

PY 

98  IF 

581  TH 

TH 

188  IF 

UB 

118  PO 

TIC'S 

MY 

128  ? 

KB 

138  PO 

PU 

148  ? 

se  s-ta 

LM 

158  RE 

C  =  l 

ROULETTE.  LISTING  2 
BY  MICHAEL  PEMBERTON 
cc>198a.  ANTIC  PUBLIS 
CREATES  LINES  148-144 
CLINES  18-258  MAY  BE 

BASIC  LOADERS  IN  THIS 
CHANGE  LINE  78  AS  NEC 
FN$c28> .TEMPS €281 . AR6 

592> :POKE  18592.255 

="D:LINE5.LST":REM  THI 
THE  DISK  FILE  TO  BE  C 

HQlisK  or  Bassette?";  :P 

NOT  CPEEKC7641=18  OR 
EN  98 

PEEKc764»=18  THEN  FNS 
KE  764.255:GRAPHICS  8> 
GENERIC  BASIC  LOADER" 
.••BY  CHARLES  JACKSON" 
KE  18592, DPL:TRAP  288 
:?  I?  "Creating  ";FNS: 
nd  bit." 
STORE  :READ  LN:LM=LN:D 


KING 

USED  UITH 
ISSUE. 
ESSARY.J 
C93J :DPL=P 

5  IS  THE  N 
REATED 
OKE  764,25 

PEEKC764»= 
?  "      AN 

7  "■ • ■ Plea 
IM  AScLNi : 


BB 
YC 

DM 

BK 

MM 

CM 

UB 

AR 
PU 
AL 

IK 
UO 

PN 

JM 

GH 

PU 

LG 

LS 

IP 

UZ 

MR 

EC 

HB 

DD 

ZN 

CN 

AY 


168  ARS="":READ  ARS 

178  FOR  X=l  TO  LENCAR$>  STEP  3:P0KE  75 

2.255 

188  LM=LM-l:POSITION  18,18:?  " CCountdo 

wn.  .  .T-";INTcLM^18> ;"» 

198    ASCC.C>=CHRS(UALCARSCX.X+2>>1 «C=C+ 

l:NEXT  X:GOTO  168 

288  IF  PEEKtl95»=5  THEN  ?  :?  :?  "QTOO 

MANY  DATA  LINES!":?  "CANNOT  CREATE  FIL 

E!"«END 

218  IF  C<LN+1  THEN  ?  :?  "QTOO  FEU  DATA 

LINES!":?  "CANNOT  CREATE  FILE!":END 
228  IF  FNS="C:"  THEN  ?  :?  "  Prepare  ca 
ssette.  press  [RETURN!" 
238  OPEN  ttl.B.e.FNS 

248     POKE    766.1:?    ttl;ASj:P0KE    766.8 
258    CLOSE    Ml:  GRAPHICS    8:?    "aEMIlIilDlIKiaiKgH 

1888  DATA  471 

1818  DATA  8498528488328668698848368488 

4  9  844  855852841861834888888888839181113 

182114183115184184116185185 

1828  DATA  1171861861181871871191881881 

2818  9189121118118122111111123112112888 

88  88370  37888803842886845889 

1838  DATA  8488128128518158158548188188 

57021821868824824863827827866838838869 

833033872836836188834155049 

1848  DATA  8520498328668698848368408558 

53844849852856841861834888837837808074 

126876128878138888888132882 

1858  DATA  8821348848841368868861388888 

8814  8898898142892892144894894146896896 

888888897897888882841885844 

1868  DATA  8888478118118588148148538178 

1785  6828828859823823862826026865829829 

868832832871035835899834155 

1878  DATA  0498528588328668698848368488 

4985285784485085885884186183488883  8838 

8888  7312587512  7877129879879 

1888  DATA  1318818811338838831358858851 

3788788713988988914189189114  3893093145 

895895888888838838800001048 

1898  DATA  8048438878460100100498138138 

52816816855819819858822822861825025864 

828828667031831878888888  898 

1188  DATA  8341558498528518328668698848 

3684  8858858851844858857854841861834888 

888888839181113182114183115 

1118  DATA  1841841161851851171861861181 

87187119188188128189189121118118122111 

111123112112888088888888888 

1128  DATA  1531531531531531531531538881 

54154154154154154154154154154154088888 

8888  88888888888888888888888 

1138  DATA  8888888341558498528528328668 

69884836848858857855044851055048041861 

834888888888888888888880000 

1140  DATA  0008888888888888888888888888 

88888888808880888000888888888000888888 

888088888888888888888888888 

1158  DATA  8888881481481481488881581581 

50088151151151151151888152152152152152 

88814914  914914  9149888147147 

1168  DATA  147147147888834155 


AN  ATARI  GROWS  ORCHIDS  IN  TEXAS 


REAL-WORLD  INTERFACE 
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LISTING  1 


Don't  type  the 
TYPO  II  Codes! 


HT 
PL 
BR 
DN 

UG 

ON 


1  REM  REAL-UORLD  INTERFACE 

2  REM  BY  JOHN  U.  LITTLE 

3  REM  CCI1988.  ANTIC  PUBLISHING 

5  A888=8:REM  CHANGE  TO  A  1  FOR  PORTB  0 
N  AN  ATARI  400^888 

6  IF   NOT  cA888=e  OR  Ae88=l»  THEN  ?  "T 
YPING  ERROR  LINE  5!Q":END 

18  GRAPHICS  2  +  16:?  tt6  :  ?  <t6  :  ?  tt6 ;  "      R 
EAL":?  «6:?  t»6;"      UORLD":?  «6  :  7  «»6 ;  " 
INTERFACE" 


<:s. 


LC 

BS 
KB 
GM 

XY 

NO 
GR 


12  RESTORE  788e:F0R  X=1664  TO  1761sREA 

D  DYTE:POKE  X.BYTE:NEXT  X : X=USR C1664> 

28  POKE  752.1:REM  KILL  CURSOR 

38  REM  DECLARATIONS 

58  DIM  YNSC1j:LET  0N=8:0FF=1 

68  PORTA=54816:PACTL=54ei8:0RIG=PEEKc5 

4018+A888> :C0NS0L=53279 

80  REM  INITIALIZE  CLOCK 

188  ?  "H":POSITION  4.2:?  "00  YOU  UISH 

TO  RESET  THE  CLOCK";  :YNS  = INPUT  YNS 


28 


ANTIC  SOFTWARE  LIBRARY 


lie  IF  ftSCcYN«»<>89  THEN  IF  ftSCtVNSJO 

121  THEN  13e:REI1  V  OR  y 

128  GOTO  ISe 

138  IF    ft5CcVN«»<>78    THEN    IF     ftSCcYNSJO 

118  THEN  leesREH  N  or  n 

148  GOTO  380 

158  ?    "B":  POSITION    11,2:?    "SSDHISaaitlOnSi 


168    HOUR- 


?      !?       !? 

:esniN=e!SEC=e 


'Correct    Second' 


POSITION  13,2:?  "msmBDniiiiiaiiii 


23:?    "Press    SDCIQD    to    co 


178    ?    "Correc-t    Hource-23» 

NPUT    HOUR:? 

188  ?  "Correct  Minute 

MIN:? 
198    ? 

SEC 
288    ? 

maia" 

218  POSITION  9 

ntinue" 

228  POKE  IB.niN 

POKE  289,e:P0KE 

USRcl664> 

224  REM  DISPLRV 

238  POSITION  16 

231  T=PEEKc2e7» 
; :GOTO  233 

232  ?  "8"; :?  T; 

233  T  =  PEEKC18>  : 
:GOTO  235 

234  ?  "0"; :?  T; 

235  T=PEEKtl9J : 
8 

236 
248 
278 
388 
UP 


:TRnP  188:1 


TRftP  198:INPUT 
TRAP  2e8:INPUT 


POKE  19.SEC:P0KE  28, 
288.8:P0KE  287, HOUR: 


8: 
X  = 


CLOCK 

18:P0KE  752,1 
IF  T>9  THEN  ? 


T;  :? 


:? 
IF 

:  o 
IF 


T>9  THEN  ?  Tj 


T>9  THEN  ?  T:GOTO  24 


?  "8"; : ?  T 

IF  PEEKtC0NS0LJ=7  THEN  238 

REM  nniN  PROGRnn 

?  "H":POKE  718,0:POKE  82,1:REM  SET 
SCREEN 

328  REH  CONFIG.  PORT  FOR  OUTPUT 
348  POKE  PACTL-»A888,0RIG-4  :POKE  PORTA  + 
fl8e8,255:P0KE  PnCTL+n88e , ORIG 
368  REM  GET  TIMING  PARAMETERS 
388  GOSUB  888 

398  IF  TIMEON=e  THEN  1268:REM  MANUAL  0 
PERATION 
488  GOSUB  1118 
403  REM  START  TIMING 

418  POSITION  5,23:?  "Press  ansi  Kea  to 
begin  t ini ns" ; = POKE  764,255:P0KE  752,1 

411  IF  PEEKc7e4>=255  THEN  GOSUB  848:60 
SUB  1418:G0T0  411 

412  POSITION  5-23:?  " 


428 

ST 

440 

141 

450 

460 

480 

500 

R=H 

510 

F:H 

520 

580 

600 

19» 

T  T 

610 

OP 
620 
COU 
59 
640 
=  ST 
68: 
650 
670 
COU 
59 
690 
=  ST 
60: 
700 
785 
710 
720 
729 

MI 
730 
8:G 


REM  IS  CU 

AND  LATEST 
IF  EARLVH 

8:G0SUB  84 
IF  LATEHO 
GOSUB  848 
REM  RELAV 
LET  ONOFF 

R0N:G0SUB 
LET  ONOFF 

R=HROFF:GO 
GOTO  448 
REM  TIMIN 
STARTMINS 

:STARTHOUR 

IME 
POKE  PORT 

EN  RELAV 
REM  ADJUS 

NT  +  «»0F  S 


RRENT  TIME  BETHEEN  EARLIE 

START  TIMES? 
OUR>PEEK(207l  THEN  GOSUB 
0:GOTO  440 
UR>PEEKC207>  THEN  500 

GOSUB  1410:GOTO  440 

OPERATION  LOOP 

aN:SEC=SECaN:MIN=MINON:H 
688 

=0FF:SEC=SECOFF:MIN=MINOF 
SUB  688 


G  SUBROUTINE 

=PEEKtl8J :5TARTSEC5=PEEKC 

=:PEEKc2e7i  :REM  GET  CURREN 

A+ASeO, ONOFF: REM  CLOSE  OR 

T  COUNTER  IF  oOF  SECS  TO 
ECS  CURRENTLY  ON  CLOCK  > 


IF  SEC+STflRT5ECS>S9  THEN  STARTMINS 
ARTMINS+l:LET  ENDSEC=5EC*START5ECS- 
GOTO  698 

LET  END5EC=SEC+STARTSECS 

REM  ADJUST  COUNTER  IF  nOF  SECS  TO 
NT  +  ttOF  SECS  CURRENTLY  ON  CLOCK  > 

IF  MIN+5TflRTMINS>59  THEN  STARTHOUR 
ARTHOUR+l:LET  ENDMIN=MIN+STARTMIN5- 
GOTO  785 

LET  ENDMIN=MIN+STARTMINS 

LET  ENDHOUR=HR+STARTHaUR 

IF  ENDH0UR<24  THEN  778 

LET  ENDH0UR=ENDH0UR-24 

REM  UAIT  FOR  CURRENT  HOUR  TO  CROSS 
DNIGHT  AND  BECOME  "8". 

IF  PEEKC2871 >ENDHOUR  THEN  GOSUB  84 
OSUB  1410:GOTO  730 


RP 

OP 

UP 
OT 

AO 
OE 

OP 
ZK 
PX 
OH 
CJ 

UN 
HX 

UT 
PU 

CB 
AH 
BG 
JB 

RE 

KN 

PJ 
CR 


OJ 
FA 

AO 
SM 
KT 

KT 

EN 

CE 

GL 

EK 

HU 

LG 
MT 
IL 

nu 

OF 
HX 

GP 
QB 
PJ 

BU 
UA 

AB 
PQ 
MR 
UN 

ZH 
OD 
KH 

UK 
PZ 
RT 

QP 
HU 

PR 


JA 


750  REM  MAIT  FOR  HOURS,  MINS,  SECS  TO 

COUNT  DOMN 

770  GOSUB  840:IF  PEEK(CONSOL> < 7  THEN  i 

410 

780  IF  ENDHOUR>PEEKC207>  THEN  770 

790  GOSUB  848:IF  PEEKCC0NS0LK7  THEN  i 

418 

888    IF    ENDMIN>PEEKcl8i     THEN    798 

810    GOSUB    840:IF    PEEK  cCONSOLX  7    THEN    i 

410 

820  IF  ENDSEOPEEKC19)  THEN  810 

830  RETURN 

835  REM  DISPLAY  TIME 

840  POSITION  16,1 

841  T=PEEKC207> : IF  T>9  THEN  ?  T;:?  ":' 
;  :GOTO  843 

? 


842  7  "0"; :?  Ti 

843  T=PEEKC18J :IF  T>9  THEN  ?  Ti 
:GOTO  845 

844  ?  "0"; :?  T; :?  ":"J 

845  T=PEEKC19> :IF  T>9  THEN  ?  Ti 
7 

846  ?  "0"; :?  T 

847  RETURN 

860  REM  INPUT  DATA  SUBROUTINES 
880  POSITION  1,6:?  " 


:?  ; 

GOTO  84 


881  POSITION  7,7:? 
SREGARD-":? 

882  POSITION  1,8:? 


■PRESS    [SSaaSQQ]    TO    DI 


890  TRAP  940 

900  ?  "EARLIEST  HOUR  TO  TURN  UATER  ON' 

; : INPUT  EARLYHOUR 

910  TRAP  930 

928  ?  "LATEST  HOUR  TO  TURN  UATER  ON"; 

INPUT  LATEHOUR:G0T0  988 

938  ?  "Q":?  "H":GOTO  880 

940  EARLYHOUR=0:LATEHOUR=24 

950  ?  "H":POSITION  1,2:?  " 


960  POSITION  1.3:?  "B  NO  EARLIEST  AND 
LATEST  START  TIMES  ■" 

970  ?  " 

":GOTO  1018 

980  ?  "H1":P0SITI0N  1,2:?  " 

••:  POSITION  1 

,3:?  "■EARLIEST  START :"; EARLYHOUR ; 
990    POSITION  28,3:?  "B  LATEST  START:"; 
LATEHOUR;"  ■" 
1000  ?  •■ 


FEBRUARY  1989 


1010  ?    :?  "PRESS  [flfsiaroiiei  3  times  to  byp 

ASS  TIMER.-:? 

1020  HR0N=8:MINON=8:SEC0N=8 

1821  TRAP  1838 

1822  ?  "NUMBER  OF  HOURS  UATER  MILL  BE 
ON"; 

1823  INPUT  HRON 
1030  TRAP  1068 

1040  ?  "NUMBER  OF  MINUTES  UATER  UILL  B 

E  ON"; 

1050  INPUT  MINON 

1060  TRAP  1090 

1070  ?  "NUMBER  OF  SECONDS  UATER  UILL  B 

E  ON"; 

1080  INPUT  SECON 

1090  TIMEON=HRON+MINON+SECON:REM  For  t 

est  in  line  390 

1100  RETURN 

1110  HROFF=0 :MINOFF=0:SECOFF=0 

1111  TRAP  1120 

1112  ?  :?  "NUMBER  OF  HOURS  UATER  UILL 
BE  OFF"; 

1113  INPUT  HROFF 
1128  TRAP  1150 

1130  ?  "NUMBER  OF  MINUTES  UATER  UILL  B 

E  OFF"; 

1140  INPUT  MINOFF 

1150  TRAP  1180 

1160  ?  "NUMBER  OF  SECONDS  UATER  UILL  B 

E  OFF"; 

1170  INPUT  SECOFF 

1180  TIMEOFF=HROFF+MINOFF+SECOFF:REM  F 

or  test  in  line  1190 

1190  IF  TIMEOFF=0  THEN  ?  "Q" ; "H" : ?  "Yo 

u  Hust  specify  an  'OFF*  period  in     o 

rder  to  use  the  tiHer.":POP  :GOTO  388 

1200  ?    :?   "mcaaaoiQ]  to  stop  cycle  uith  u 

continued  on  next  page 
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nTER 

unr 

IP 

1218 

WITH 

nj 

1228 

sa 

1248 

PX 

1268 

UG 

1278 

GB 

1280 

er  o 

BT 

1298 

nn 

1388 

GB 

1310 

in 

1320 

of  f  • 

BO 

1330 

DY 

1348 

FC 

1350 

IT 

1368 

>121 

UC 

1370 

BD 

1388 

DF 

1398 

>118 

ON.":?  "aaaSHD  to  stop  cycle  WITH 
ER  OFF."  AH 

?  "BDSafl  TO  RE-STflRT  PROGRAM":?  ••     MF 
OUT  RESETTING  CLOCK."  LJ 

RETURN 

REM  MANUAL  ON^OFF  ROUTINES 

LET  ONaFF=ON  AL 

TRAP  1278 

?  :?  "Do  uou  wish  to  turn  the  wat 
n";  YP 

GOSUB  1358 

TRAP  1308  AT 

LET  ONOFF=OFF  CJ 

?  "Do  vou  wish  to  turn  the  water 

'gOSUB  1358  MX 

GRAPHICS  e:END 

YNS  = INPUT  YNS 

IF  ASCcYNS)<>a9  THEN  IF  ASCcYNSX     QT 

THEN  139e:REM  Y  OR  u 

POKE  P0RTA+A808,0N0FF 

RETURN  RV 

IF  ASCtYNS»<>78  THEN  IF  ASC cYNSJ < 

THEN  POP  :GOTO  65536:REM  N  or  n.. 


.655 

1488 

1485 

1410 

+  A88 

:END 

1428 

+  AB8 

e:EN 

1438 

380 

1440 

7000 

2,22 

,201 

7010 

33,2 

0,20 

7020 

0,23 

3,19 

7030 

30,2 

207, 


36  IS  ERROR  TO  TRAP 

RETURN 

REM  EARLY  EXIT 

IF  PEEKCC0NS0L>=3  THEN 
O.ON:POP  :POSITION  1,20: 


POKE  PORTA 
POKE  752,0 


IF  PEEKcC0NS0Li=5  THEN  POKE  PORTA 
0.OFF:POP  :POSITION  1,20:POKE  752, 
D 

IF  PEEKCC0NS0L)=6  THEN  POP  :GOTO 


RETURN 

DATA  104, 162, 6. 160, 139, 169, 7, 32. 9 
8,96,230,208,208.2,230,209,165,288 
,15,144.26.165,289 

DATA  201. 3.144.28.169.8,133.2  08.1 
09.165.20.281.60.144,6,16  9,1,133,2 
8,12,230,28,165 

DATA  20,201.60.144.4  0.16  9.0.133.2 
0.19,165,19,201,60.144.28.169.0,13 
,230,18,165.18 

DATA  201.60.144.16.169.0.133,18,2 
07,165.207,201,24, 144.4,169,0,133. 
76.98.228 


SHADOWS  AND  REFLEaiONS  FOR  YOUR  8-BIT  GRAPHICS 

HARD-WIRED  RAY  TRACING 


Article  on  page  41 


LISTING  1 


Don't  type  the 
TYPO  11  Codes! 


C^ 


JU 
UQ 
BH 
ZP 
CP 
BG 
MM 
MN 

JG 

TP 
BG 

HX 

DC 

PA 

RU 
ZU 
UC 

60 

KC 
6H 

EH 

no 

CF 

PP 

UF 
XU 

GR 

MO 
KU 
WF 
NG 
DO 
HJ 

ZJ 
UP 
OU 


10  REM  HARD-MIRED  RAY 

28  REM  BY  MICHAEL  BJOR 

38  REn  cc>198a,  ANTIC 

40  BRKX=CPEEKC53279><> 

1000  GOSUB  1660 

1010  FOR  SY=1  TO  191 

1020  FOR  SX=e.5  TO  318 

1030  TRAP  1340sSXSCR=c 

SY 

1040  POKE  559,0:IF  PEE 

POKE  559,0LDUALUE 

1050  REn  SPHERE  PIXEL? 

1060  Al=cSX-UX»«cSX-UX 

>*UZ«UZ 

1078  Bl=2»tcSX-UX»«cUX 

-CY> -UZ»CUZ-CZ> J 

1880  Cl=cMX-CX»»cUX-CX 

>  +  cuZ-CZ>*»cUZ-CZ>-R»R 

1890  ARG=BlwBl-4wAlMCl 

1258 

1100  REn  SPHERE  PIXEL 

1110  SCALEl=c-Bl+SORcA 

1120  DX=SCALElwcSX-UX> 

Y»  :DZ  =  -5CfiLEl*MZ 

1130  RX=DX+UX-CX:RY=DY 

CZ 

1140  ODOTN=cDXwRX+DV«R 

1150  SCALE2=C191-CY-RV 

^R» 

1160  IF  SCALE2>=0  THEN 

1170  REn  REFLECTED  RAY 


TRACING 
KHAN 

PUBLISHING 
3J 


5  STEP  2 
SX-0.5»^2:SY5CR= 

KC53279J=3  THEN 


>+cSY-UY>«cSY-OY 

-CX»+cSV-UY»*<UY 

>  +  cUY-CV»»»cgY-CY 

IF  ARG<=0  THEN 


RGj>^  C2»»A1» 
:DY=SCALE1»CSY-U 

+UY-CY:HZ=DZ+OZ- 

Y*DZ»«RZ>''R 

»• cDY+2wDD0TN«RY 

1220 
INTERSECTS  ROOF 


1188  SCALE2=c0-CY-RVi^cDY  +  2wDD0TNMRY/'R 
a 

1198  DHTEMP=DHR0F:SMTEMPL0=SMR0FL0:SnT 

EnPHI=SnROFHI 

1200  GOSUB  142e:G0T0  1330 

1210  REn  REFLECTED  RAY  INTERSECTS  FLOO 

R 

1228  DHTEnP=DHFLR!SMTEMPLO=SMFLRLO:SMT 

EnPHI=SnFLRHI 

1230  GOSUB  142e:G0T0  1338 

1248  REM  NOT  SPHERE  PIXEL 

1250  DX  =  SX-UX  :DY  =  SY-UY:DZ  =  -UZ 

1260  IF  SY<=HORIZON  THEN  1300 

1270  A=cl91-UY»^DY:REn  BELOM  HORIZON 

1280  DHTEnP=DHFLR:SnTEnPLO=SnFLRLO<SnT 

EnPHI=SMFLRHI 

1290  GOSUB  155e:G0T0  1330 

1308  A=c8-UYi^DY:REn  ABOUE  HORIZON 

1318  DHTEnP=DHR0F:SnTEnPLO=SMROFLO:SnT 


CA 
NS 
YD 
Y5 
DH 
LK 
nR 


Hn 


ST 
FP 
CJ 

NS 


UU 

KL 
PZ 
NH 
AP 
UO 

SC 
EB 

JY 

no 

GO 
RP 

UC 

KT 
BH 
NP 
ZU 
UU 

SK 
EY 

AU 


EnPHI=SnROFHI 

1328  GOSUB  1550 

1330  POKE  77.0:REn  KILL  ATTRACT  nODE 

1340  NEXT  SX 

1350  NEXT  SY 

1360  REn  SAUE  SCREEN 

1370    L0D$C3.3>=CHR$C11> 

1388     5L0C=PEEKC88>+PEEKC89J«256: CLOSE 

<tl:OPEN    ttl.8.8,  "D:TRACE.PIC":G0SUB     800 

0 

1390  X  =  USRcADRcLOD$i  ,SL0C.7680>  :PUT  **1 

.PEEKc712> :F0R  X=708  TO  718:PUT  ttl.PEE 

KtX» :NEXT  X:CLOSE  «1 

1400  GRAPHICS  0:?  "DONE!":END 

1418  REn  REFLECTION  ROUTINE 

1428  DRX=DX-2MDD0TNwRX^R:DRY=DY-2MDD0T 

NwRY''R:DRZ  =  DZ-2«DDaTN»RZ^R 

1430  FX=CX+RX+5CALE2»DRX+FXDISP:FY=CY+ 

RY+5CALE2»DRY:FZ=CZ+RZ+5CALE2«DRZ+FZDI 

5P 

1440  FX5CR=tcFX-INTcFX^318.5>«318.5J-0 
.5J^2:FZSCR=191- cFZ-INT cFZ^191» «191 J 

1450  IF  FXSCR<=0  THEN  FX5CR=0 

1460  IF  FXSCR>=160  THEN  FXSCR=160 

1470  IF  FZSCR<=0  THEN  FZSCR=0 

1488  IF  FZSCR>=191  THEN  FZSCR=191 

1490  POKE  561.DHTEnP:P0KE  BB.SHTEnPLQ: 

POKE  89.SnTEnPHI 

1588  LOCATE  FXSCR. FZSCR. BYTE 

1518  POKE  561.DHSCR:P0KE  88. SnSCRLO : PO 

KE  B9.SnSCRHI 

1528  IF  YDM  THEN  BYTE=BYTE-1 : IF  BYTE<= 

8  THEN  BYTE=0 

1530  COLOR  BYTEtPLOT  SXSCR. SYSCR : FLAG= 

l:RETURN 

1540  REM  FLOOR  OR  CEILING  ROUTINE 

1550  FX=UX+AWDX+FXDISP:FY=UY+A«DY:FZ=U 

Z*AHDZ+FZDISP 

1560  FXSCR=CCFX-INTCFX/'318.5J«318.5»  -0 
.5»^2:FZ5CR  =  191-  cFZ-INT  cFZ''191J»191> 

1570  IF  FXSCR<=8  THEN  FXSCR=8 

1580  IF  FXSCR>=160  THEN  FXSCR=160 

1590  IF  FZSCR<=0  THEN  FZ5CR=a 

1600  IF  FZSCR>=191  THEN  FZSCR=191 

1610  POKE  SSl.DHTEnP'POKE  BB.SMTEMPLOt 

POKE  89.SnTEnPHI 

1620  LOCATE  FXSCR, FZSCR. BYTE 

1630  POKE  561.DH5CR>P0KE  88, SMSCRLO ■ PO 

KE  89,SnSCRHI 

1640  COLOR  BYTEiPLOT  SXSCR, SYSCR > RETUR 

N 


30 


ANTIC  SOFTWARE  LIBRARY 


1658  REM  ENTER  UIEUPOINT  COORDINATES 

1668  GOSUB  7588:TRnP  1698 : UX=16e : UY=96 

:UZ=-458 

1665  POSITION  8,5:?  ••  Uiewpoint  Coordi 

nates  :■■:  POSITION  7,6:?  -cUhere  are  »ou 

s-tandins?!" 
1678  7  :?  "Input  UX - UY, UZ : " : 7  "  8<UX<3 
19":?  "  8<UY<191":?  "  UZ<e":GOSUB  8888 


1688  INPOT  UX 
1698  IF  UX<8 
91  OR  UZ>8  TH 

1668 
1788  REn  SPHE 
1785  TRAP  174 
1718  GOSUB  75 
is  the  center 
1715  POSITION 
:? 

1728  INPUT  CX 
1738  REtl  CIRC 
1748  R=INTtCY 
Radius  of  the 

1758  INPUT  R 


,UY,UZ 

OR  UX>319  OR  UY<8  OR  UY>1 

EN  ?  "Coord  ErrorQQ" : GOTO 

RE  COORDINATES 
8:CX=187:CY=64iCZ=95.5 
8e:P0SITI0N  3.5:?  "Uhere 

of  the  sphere?" 

13.7:?  "C  CX,  CY  «  CZ  J" 

,CY,CZ 
LE  RADIUS 

/'2»:TRAP    1768:?    "Hffiffi 
Sphere":?     :?    "c8-";CV;"> 


2828  HORIZON=UY 
2838  REM  SET  COLORS 
2848  SETCOLOR  4.8.8 
2858  SETCOLOR  8.8.4 
2868  SETCOLOR  1.8.8 
2878  SETCOLOR  2.8,12 
2888  0LDUALUE=PEEKC559> 
2898  RETURN 
2188  REM  GET  PIC  FILENAME 


TD 
YU 
UI 

LK 
PD 


AK 

un 

HN 
UJ 

AE 
ZA 
OZ 
PI 
OC 
LI 
UN 
CA 


1768  TRAP  1888:IF  CY-R<8  OR  CY+R>191  T 

UC 

HEN  ?  "Coord  ErrorQQ" : GOTO  1785 

1778  FXDISP=8:FZDISP=e:G05UB  7588:PaSI 

CE 

TION  8.5:7  "Input  FXDI5P,  FZDISP!"!? 

1788  INPUT  FXDISP. FZDISP 

LY 

1798  REM  READ  .PIC  FILE 

1888  TRAP  4888e:PICSIZE=768e:G0SUB  218 

8:REI1  INIT  ML  LOADER 

LE 

1818  DIM  J$cl8> .FILE$(18>.FNAMFLR$cl8> 

.FNAMR0F$cl8> .MIL0DSc342> 

1812  ?  "HSSBB   Use  the  DIMMING  Feature  c 

KC 

Y/'NJ";  :INPUT  JS:IF   NOT  CJ»  =  "Y"  OR  J*  = 

"»•'    OR  JSr:"n"  OR  JS  =  "N">  THEN  1812 

DR 

1814  YDM=8:IF  JS="Y"  OR  JS="u"  THEN  YD 

M=l 

1828  7  "B    FLOOR  FILENAME" 

RS 

1838  GOSUB  2118 

NX 

1848  FNAMFLR$=FILE« 

1858  7  "B    CEILING  FILENAME" 

UO 

1868  GOSUB  2118 

ZM 

1878  FNAMROF$=FILE$ 

JK 

1888  REM  LOAD  FLOOR 

KG 

1898  POKE  186.PEEKC748> :MEMT0P=PEEKC18 

61 

1988  GRAPHICS  15+16:G05UB  88ee:DHFLR=P 

lU 

EEKC561> 

AU 

1918  SMFLRL0=PEEKC88J : SMFLRHI=PEEK c89> 

RS 

:SMFLR=SMFLRL0+256WSMFLRHI:P0KE  559.34 

1928  CLOSE  ttl:OPEN  »»1 .  6  .  8,  FNAMFLRS  :  INP 

UT  »1,MIL0D$:CL0SE  Ml 

1921  OPEN  «1,4.8,FNAMFLRS:IF  MIL0D$(15 

Lj 

.17»="862"  THEN  1926 

^L^U 

1925  GOSUB  78e8:CLaSE  ttl : GOTO  1948 

LJ 

1926  X=USRCADRcLOD$> , 5MFLR, PICSIZE* : CL 

OSE  «1 

UQ 

1938  REM  LOAD  ROOF 

OH 

1948  POKE  186,MEMT0P-32 

UD 

1958  GRAPHICS  15+16:G0SUB  888e:DHR0F=P 

EEKC561> 

EU 

1968  SMR0FL0=PEEKC881 : SMR0FHI=PEEKc89> 

:SMR0F=SMROFL0+256KSMROFHI:POKE  559,34 

IJ 
PR 

1978  CLOSE  t«l:OPEN  <*1 ,  6  ,  8  ,  FNAMROF$  :  INP 

UT  «1,MIL0DS:CL0SE  ««1 

UO 

1971  OPEN  »1,4,8,FNAMR0F$:IF  MIL0D$C15 

,17J="862"  THEN  1976 

RD 

1975  GOSUB  7888:CL0SE  ttl:G0TO  1998 

1976  X=USRcADRcLOD$>,SMROF,PICSIZEi :CL 

PY 

OSE  »1 

1988  REM  ESTABLISH  PLOTTING  SCREEN 

TH 

1998  POKE  ie6.MEMT0P-64 

UB 

2888  GRAPHICS  15-M6:G0SUB  888e:DHSCR=P 

EEKC561) 

MY 

2818  SMSCRL0=PEEKc8a> : SMSCRHI=PEEKc89i 

KB 

:SMSCR  =  SMSCRL0«^256WSMSCRHI:P0KE  559,34 

PU 

2118 

CLOS 

"Insert 

2128 

7  " 

N  ttl 

6,8, 

2138 

7  "B 

UT  ttl.FIL 

-'2>» 

INTC 

2148 

TRAP 

er  Fiiena 

2158 

IF  F 

»  <>"Dl:" 

=FILE*:FI 

2168 

TRAP 

2178 

REM 

2188 

DIM 

2198 

LOD» 

789,48:? 
J$:OPE 


E  ttl:POKE  718,8:P0KE 

disk  into  drive  ttl," 

press  <return>"; : INPUT 

"D:»*.7IC" 

":TRAP  2148:F0R  N=8  TO  63:INP 

E«>POSITION  2+19mccN^2>=INTcN 

M-'2>  I?  FILE*l  :NEXT  N 

21ieiP0P  <CLOSE  ttl>7  I?  "Ent 
Me"i iINPUT  FILE* 
ILE*C1,2»<>"D»"  AND  FILE*cl,3 
AND  FILE*cl.3><>"02«"  THEN  J» 
LE*ci,2>="D:"iFILE»c3>=J* 

224e>RETURN 
ML  SCREEN  LOAD  ROUTINE 
L0DSC28> 
=  "haiSBRShHUahHTffihBVShBXSBBB  Um 

2288  RETURN 

2238  REM  ERROR  MESSAGE 

2248  ?  "DISK  ERROR":END 

7888  REM  LOAD  AN  MI  PICTURE 

7828  RESTORE  7868 

7838  FOR  A=:1536  TO  1556 

7848  READ  B : POKE  A,B 

7858  NEXT  A 

7868  DATA  162,16,169,1,157,72.3,169.8. 

157. 73. 3. 32. 86. 228. 48, 1,96, 184, 184. 96 

7878  MIL0DS  =  "hliiaBaSDBSa[DaDaailE3EffiD[EaHffiBin 

□laanan  seiGaaasianDnmsDsiiKnneHe" 

7888  MiL0D$c55>= "WEamsBxnossmmaoia  m^msam 

acE3  mxwsmmwn  mimsmmjiBn  rngmsmsEm^Wiman 

O" 

7898    MILOD$  cll5>="DEaxaDamEaYaE]a(S    nZBBQ^ 

anaiaBrai  □aoBina  tEamoa  m^Qcaaa  nzteannaBsmQigiiis 

B" 

7188  MiLOD$  C175S  ^"(aBiiiaosEi/BmaaiimiiiaiSBaa 
SBBcntaH  maHGBaasBssBiaGsiiiQjmiiaaaiitisDiS" 

7118    MIL0DSC228>=CHRSC1551 

7128    MILOD«  (229>  ="»E]a[3B[i]R[3aEaHHnBaeE]PeD 

anan  e  mamDnassnoa  ^  assnseeanBe  moEiaaaiiaDaD  e 

seiiso" 

7138    MIL0D$c291i="ll]BB[HlDeaceI!]ananciOeSa 

EKHaiaisKBBBHanBasaSeDaEXIIleBKIBEaiaQBBllS" 

7148  REM  POKE  88,ADL0:P0KE  B9.ADHI 

7168  A=USRCADRCMIL0D*>> 

7198  CLOSE  »l:G0SUB  8888:RETURN 

7588  ?  "H":POSITION  32,1:?  "C319,8>":P 

OSITION  38,22:?  " C319, 191> ": POSITION  1 

,22:?  "ce,191J" 

7518  POSITION  1,1:?  "C8,8»" 

7528  RETURN 

8888    BRK=USR  CADR  C"hanaMhhnBtaSiapaSBLI(Sin" 

1 ,BRKXi :RETURN     t REM    DISABLES    BREAK    UHE 

N    RRG=1 


LISTING  2 


LU 

BQ 
YC 

DM 


18    REM    HA 

2 
28  REM  BY 
38  REM  «c 
35  REM  CR 
7128-7138 
48  REM  CL 
OTHER  BAS 
58  REM  CH 
68  DIM  FN 
EEKC18592 
78  FNS=:"D 
AME  OF  TH 
88  ?  "BHi 
5 

98  IF   NO 
581  THEN 
188  IF  PE 
lie  POKE 
S  GEN 
7  ,"B 


RD-UIRED  RAY  TRACING,  LISTING 


MICHAEL  BJORKMAN 
11988,  ANTIC  PUBLISHING 
EATES  LINES  2198,  7878-7188, 

S  8888 
INES  18-258  MAY  BE  USED  UITH 
IC  LOADERS  IN  THIS  ISSUE. 
ANGE  LINE  78  AS  NECESSARY.) 
S£28> , TEMPS C28> , ARSC93>  :DPL  =  P 
> :POKE  18592,255 

:LINES.LST":REM  THIS  IS  THE  N 
E  DISK  FILE  TO  BE  CREATED 
SK  or  Cassette?"; : POKE  764,25 


TIC 
128 


138    POKE 
148    7     :? 
se    stand 
158    RESTO 
C  =  l 

168    AR$=" 
178    FOR    X 
2,255 
188    LM=LM 
wn  .  .  ■  T 


T     cPEEKt764J=18    OR    PEEKc764i 

98 

EKC764»=18    THEN    FNS="C:" 

764,255:GRAPHICS     8:?     "  AN 

ERI 

Y    C 

185 

:?    "Creating    ";FNS:?    "...Piea 

bU 

RE 


i, 255: GRAPHICS    8' 
CC     BASIC     LOADER" 
:HARLES    JACKSON" 
>92.DPL:TRAP    288 
■Creating    ";FNSi 


iREAD    LN:LM=LN:DIM    AScLNi: 

':READ  AR$ 

:1  TO  LENcflR$>  STEP  3:P0KE  75 


l:POSITION  18,18:? 
INTcLM.'ieJ  ;  "» 


cCountdo 


FEBRUARY  1989 


continued  on  next  page 
31 


BK 

nn 

CM 

un 

AR 
PU 
AL 

lU 
UB 

AY 

BU 

BA 

HV 

CE 

ns 


198  AScC,C»=CHRStUALcAH*cX.X+2»J»iC=C+ 

IsNEXT  X:GOTO  168 

288  IF  PEEKC195»=5  THEN  7  :?  =7  "QTOO 

MANY  DATA  LINES!"'?  "CANNOT  CREATE  FIL 

El "I  END 

218  IF  C<LN+1  THEN  7  i7  "QTOO  FEM  DATA 

LINES!")?  "CANNOT  CREATE  FILE!":END 
228  IF  FN«="C!"  THEN  ?  :?  "  Prepare  ca 
ssette>  press  cRETURNi" 
238  OPEN  M1,8.8.FN» 

248  POKE  766. 1>?  «*1jA«j>P0KE  766,8 
258  CLOSE  Ml  I  GRAPHICS  8>?  "■(aaJBllSBSDaQlB 

1888  DATA  568 

1818  DATA  8588498578488328768798688368 

61834184169887141882863184141885883184 

14188488318414188988  3184141 

1828  DATA  8888831628168328862260968341 

5585584685584683287 787 367 68? 9668836061 

834184162816169887157866683 

1838  DATA  1692321578688831690801570698 

8316988115787268316  9688157673603169006 

133224832666686165224261687 

1848  DATA  2406132616132468162818262466 

66236224  6  24144234634155  655848056848832 

87767367667986883684  8853653 

1656  DATA  8416618341652321332346241442 

4416523214119666223  6224632666  866165232 

141197682238224  832666686165 

1668  DATA  2321411986622362246326666861 

65232141199662236224832666666165232141 

2666628241441961690  00133236 

1078  DATA  1336341550556486576466326778 

73876679668636  64  6  64  9  04  9053  041061034230 

165066133224133228165889133 


VO 
YD 
MB 
MN 
KE 
AM 
UZ 
DO 

au 

LO 
NO 
RP 


1888  DATA  2251332298326668861921362488 

9416986613322716523204112813323516  5232 

041127133226208014  632000006 

1090  DATA  16523213322?632e666061652321 

3322619822616523  52080280  32000034155055 

049048  646632677673676679668 

1188  DATA  8366488498556538416618346661 

65232133233624144847198226169255197226 

288245198227169255197227268 

1118  DATA  2372461836326666661652321332 

33824144  819198  22616925519722626  82  3  8198 

22716925519722  7208230240  034 

1128  DATA  1556558498566488328776736768 

7966883684  8858656857641661634696169862 

19723424666224  6261165233166 

1136  DATA  8661452246241696661612241332 

2416  968616122513322  52  3023016  9  89  6197230 

268647169661197236286624624 

1146  DATA  1698611812281332281332241696 

6  6133236133238161229133229133634155655 

84965184  8832877873876879868 

1156  DATA  6368488566578496416616342258 

241446172  3  6236824169848161228133224169 

688133230101229133225165235 

1160  DATA  2401762881491652331688001452 

24024169881181224133224169688161225133 

225165235240151288229834155 

1178  DATA  8568488488486328668826758618 

85883882648865868682846634164169860133 

677164164261888248687169112 

1188  DATA  1338161416142108968346410446 

66682675888841858682669884885882678832 

658682869877632868673883065 

1198  DATA  8668768698836328666828698658 

75632687872869678632665082871861649155 


NEW  WAY  TO  SPEED  UP  YOUR  BASIC  PROGRAMS 


EQUIVALENCE 


Article  on  page  44 


LISTING  1 


Don't  type  the 
TYPO  II  Codes! 


<:^ 


PO 
JB 
BH 
AH 
UL 
EZ 
BE 
JT 
TH 
SZ 
BO 
BZ 
FO 
BU 
BG 
TP 
RA 
ZU 
UZ 
JU 
YM 
BR 
SZ 
EA 
FR 
BZ 
KB 
BS 
KH 
SD 
AS 
BS 
TZ 

JD 

DI 
6N 
MT 
UE 
GL 


18  REH  SBUND  EBUIUALENCE 

28  REH  BY  DOUG  UHITE 

38  REM  CCI1988,  ANTIC  PUBLISHING 

48  Din  SSC8> 

58  Din  U»(28> 

68  Din  CHSC256> 

76  REn 

88  UUTST=PEEKC134»+256«PEEKC135» 

98  ? 

188    STARP  =  PEEKcl4  8i'^256<*PEEKcl41> 

lie    REn 

126  SUNUn=6:REn  S«  IS  UARIABLE  «*  8 

136  REn  IN  THE  VARIABLE  NAHE  TABLE 

146  REn 

156  REn  CALCULATE  OFFSET  OF 

168  REn  FREB.  OF  AUDIO  CH.M8 

178  REn 

186  FREB=5376e 

196  OFFSET=FREB-STARP 

288  ABFF5ET2=INTcOFFSET'256> 

216  A0FFSET1  =  0FFSET-256»«A0FFSET2 

226  REn 

236  UML0C=UUTST*cSUNUn>»8 

246  POKE  UULOC+2. AOFFSETl 

258  POKE  VULOC+3. A0FFSET2 

268  REn 

270  REn  AFTER  THE  OFFSET  CHANGE 


286  REn  S$ C1,11=AUDF1 

296  REn  S«c3,3i=AUDF2 

366    REn    S$c5.5i=AUDF3 

318    REn    S$C7,7>=AUDF4 

328    REn 

338  ?  "H":7  "       SOUND  EBUIUALENCE  D 

EnB" 

348  7  '? 

OL  DATA" 

358  FDR  1=1  TO  255  STEP  2 

368  CH«cl.I>=CHR«c255-I> 

378  U=U-6.33!IF  U<1  THEN  g=12 

3  86    CH$ci+l.I+l>=CHRCcl6e+INTcU>> 

398  NEXT  I 


S$C2.2>=AUDC1 
S$C4.4>=AUDC2 
S$C6,6>=AUDC3 
S$c8.8>=AUDC4 


•FILLING  CHS  UITH  SBUND  CBNTR 


BP 

UU 

NS 

Hn 

YA 

CR 
CR 
JK 
FA 
BK 
LR 

NS 
DU 
HZ 
GD 
NG 
RC 
XD 

KR 

UY 

nu 

FT 
CN 
IE 
LC 

nu 

JK 
BS 

NN 
BN 


488  REn 

418  ?  <?  <7  "CHARACTERS  IN  CH$  ARE  CBN 

UERTED  INTB" 

428  7  "FREBUENCY,  DISTBRTIBN>  &  UBLUnE 


438  7 
D" 
448  7 


•PARAnETERS  FUR  THE  SBUND  COnnAN 
■UITHOUT  USING  A  POINTER  STRING. 


456  7 

468  FOR  L00P=1  TO  2 

478  ?  "ITERATION  n    ";LOOP 

488  FOR  1=1  TO  248  STEP  2 

496  FOR  N=e  TO  3 

588    F  =  ASCCCH$ ci,I>>  :  X  =  ASC cCHS cl  +  1 , l  +  ij 

518    D  =  INTCX^16> 'U  =  X-16«INTCX''16» 

526  SOUND  N,F,D,U 

536  NEXT  N 

546  NEXT  I 

556  NEXT  LOOP 

566  REn 

578  7  :?  :?  "NOU  USING  A  POINTER  STRIN 

G" 

588  7  >?  "CH$  SUBSTRINGS  ARE  ASSIGNED 

INTO  S$." 

598  7  "S$  IS  STORED  IN  THE  SAHE  nEnORY 

666  7  "LOCATIONS  AS  THE  SOUND  CONTROL 

618  7  "REGISTERS." 

628  7 

638  SOUND  e,e,ie.4:S0UND  1,6,18.4 

648  SOUND  2.e,ie,4:S0UND  3,8.18,4 

656  FOR  L00P  =  1  .TO  16 

668  7  "ITERATION  «  ";L0OP 

678  FOR  1=1  TO  249  STEP  2 = S*=CH* cl . 1+7 

> :NEXT  I 

688  NEXT  LOOP 

698  END 
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L, 

ISl 

TING  2 

en 

830 

POKE  18.0:POKE  19.8:P0KE  20, 

0 

JU, 

KV7  J 

L  MX  W  ^M    ^t 

OG 

840 

FOR  1=0  TO  ASIZE:ncl}=l:NEXT 

1 

HI 

le 

REn  STRING  EBUIUALENCE.  LISTING  2 

DD 

858 

SOSUB  ISOOiREn  GET  TinE 

JB 

28 

l)En  BY  DOUG  UNITE 

GU 

860 

50SUB  160e:REn  PRINT  nci  TO 

5> 

OH 

38 

REn  CC11988.  ANTIC  PUBLISHING 

RH 

878 

REn 

RU 

48 

?  "H"!?  "       STRING  EBUIUALENCE  D 

YB 

880 

7  1?  "FILL  ncj  UITH  3-S" 

EMO 

■ 

UX 

890 

?  "BY  COPYING  SUBSTRINGS  IN 

S«" 

OT 

58 

7     !?  "INPUT  ARRAY  SIZE   c  <  4888  i 

BU 

900 

REn 

"; 

EJ 

918  POKE  ia.0:POKE  19.0:P0KE  20. 

0 

DY 

68  INPUT  ASIZE 

NA 

920  nc0>=3iREn  nto>  =  S»cl.6> 

DM 

65  IF  A5IZE>3999  THEN  58 

TZ 

930 

S«c7>=S«cll 

LE 

67 

IF  A5IZE<10  THEN  ASIZE=ie 

DC 

940 

SOSUB  ISBOiREn  GET  TinE 

BE 

78  REH 

GT 

950 

50SUB  160e>REn  PRINT  ncl  TO 

5> 

OU 
UP 

88  Din  S$cii ,ncASIZE> 

98  Din  USC28) 

188  Din  DELAVecii 

RG 
UE 
HF 

960 
970 
988 

REn 

7  :  ^7  ■  ■  ftiiTirBQietHforainiTirpifTiHnriiHrBriinnnnnr 

US 

f       •    r          IJiUfL9lilEjHrU]L9tJnJJUUtKJBUuiHLI!IllUUlfUUuLiiL9 

INPUT  DELAYS 

BO 

118 

REH 

RH 

998 

REn 

OE 

128 

REn  .  FIND  HEnORY  LOCATIONS 

HU 

1088 

REn 

GI 

138 

REn  .  FOR  THE  STRING  AND  THE 

En 

1810 

7  s7  "REFILL  nci  UITH  DATA 

BY  -- 

TS 

148 

REn  .  ARRAY  THAT  ARE  TO  BE 

BD 

1828 

7  "READING  -  Dl > ARRAY . DAT  -  INTO  Mc 

CX 

158 

REn  .  EBUIUALENCED. 

1  " 

BV 

168 

REn 

IF 

1038 

REn 

XR 

178 

UNT5T=PEEKC130»+256»PEEKC131> 

UA 

1848 

OPEN  Ml. 4. 8. "Dl : ARRAY. DAT- 

TU 

188 

UNTEND=PEEKC132>+256»PEEKC133>-1 

AU 

1850 

POKE  18.0:POKE  19.0iPOKE  20 

.  0 

HJ 

198 

UUTST  =  PEEKcl34)-i-256»PEEKcl35i 

HX 

1068 

FOR  1=8  TO  ASIZE 

TA 

288 

STARP=PEEKcl40>+256MPEEKci41i 

UB 

1078 

INPUT  «*1;N 

BP 

218 

REn 

OP 

1875 

REn  ■  FOR  TURBO  BASIC.  USE: 

AK 

228 

U$="S$":REn  .  THE  DATA  -STRING- 

CI 

1888 

REn  XGET  Ml.N 

RO 

238 

GOSUB  2880 

RJ 

1098 

ncli=N 

TU 

248 

suNun=uNun 

ER 

1100 

NEXT  I 

BX 

258 

REn 

BB 

1110 

GOSUB  1500:REn  GET  TinE 

RO 

268 

U$="nc"iREn  .  THE  DATA  -ARRAY- 

HR 

1120 

CLOSE  <*1 

RI 

278 

GOSUB  2088 

IH 

1130 

REn 

BR 

288 

AUNun=UNun 

EX 

1148 

7  :7  "REFILL  nt>  UITH  DATA 

BY  " 

TH 
Ftl 

298 
388 

AOFFSETLO=OFFSETLO 
AOFFSETHI=OFFSETHI 

FN 

1158 

7  "READING  •  Dl : STRING . DAT ■ 

INTO  S 

ET 

318 

ADiniLO=UDiniLO: ADiniHI=UDiniHI 

IB 

1168 

REn 

IB 

328 

ADin2L0=UDin2L0>ADin2HI=UDin2HI 

RH 

1170 

OPEN  <*1. 4.0. ■■Dl:STRING. DAT- 

BU 

338 

REn 

OF 

1188 

POKE  18.8:P0KE  19.8:P0KE  28 

>  0 

An 

348 

REn  .  REDinENSION  THE  STRING  & 

JK 

1198 

TRAP  1228:1=8 

LG 

358 

REH  .  SET  THE  STRING  OFFSET 

UC 

1288 

GOSUB  3ee8:REn  CIO  nETHOD 

in 

368 

REn  .  EBUAL  TO  THE  ARRAY  OFFSET 

NY 

1285 

REn  .  FOR  TURBO  BASIC.  USE: 

RC 

378 

REn 

EY 

1218 

REn  BGET  ttl.ADRcS$>,SSIZE 

NB 

388 

FIR5TDin=ADiniL0+256»ADiniHI 

BU 

1228 

GOSUB  1508:REn  GET  TinE 

JF 

398 

SEC0NDin=ADin2L0+256»ADin2HI 

IH 

1230 

GOSUB  16e8:REn  PRINT  Hcl  TO 

5> 

UP 

488 

S5IZE  =  6»FIR5TDIH»»SEC0NDIH 

nz 

1240 

CLOSE  ttl 

LI 

418 

HBYTE  =  INTC5SIZE''256J 

FG 

1258 

END 

OZ 

428 

LBYTE=SSIZE-2S6»HBVTE 

BC 

1588 

REn  *   GET  TinE 

BU 

438 

REn 

IJ 

1518 

REn 

TD 

448 

UUL0C  =  UUTST+CSUNUH»»*8 

OR 

1520 

SEC=cPEEKC28i+256wPEEKci9>i 

X60 

FD 

458 

POKE  UUL0C+2,A0FFSETL0 

SL 

1530 

7  :7  INTC1888«SEC1^1888; 

UZ 

468 

POKE  UULOC+3, A0FF5ETHI 

SH 

1540 

7  "  SECONDS- 

OB 

478 

POKE  UUL0C+4.LBYTE 

AY 

1558 

RETURN 

LZ 

488 

POKE  UUL0C+5,HBYTE 

nE 

1688 

REn  «   PRINT  nci  TO  51 

PL 

498 

POKE  UUL0C+6.LBYTE 

NU 

1618 

7 

HB 

588 

POKE  U0L0C+7,HBYTE 

YT 

1628 

FOR  1=1  TO  5 

BS 

518 

REn 

ZO 

1638 

7  --MC";I;">   =  -,MCI> 

DU 

528 

?  !?  "FILL  no  UITH  «-5  1  TO  ASIZE 

FN 
BA 

1648 
1658 

NEXT  I 
RETURN 

BU 

538 

REn 

KN 

2880 

REn  S       FIND  UARIABLE  «* 

NB 

548 

FOR  1=8  TO  A5IZEincI>=I:NEXT  I 

lA 

2018 

REn 

RA 

550 

REn 

OB 

2828 

J=0:ONUn=-l 

BH 

568 

7  !?  "URITE  ntTi     TO  DI5K-- 

SB 

2838 

FOR  I=UNTST  TO  UNTEND 

RE 

578 

REn 

TU 

2040 

CH=PEEKclJ 

LR 

see 

CLOSE  «1 

LH 

2858 

J  =  J  +  1 

IL 

598 

OPEN  «»1.8,0,"Dl:  ARRAY.DAT-- 

UC 

2868 

IF  CH>128  THEN  CH=CH-128 : UNUn=UNU 

EE 

688 

POKE  18,8sP0KE  19,8:P0KE  28.8 

n  +  1 

KK 

618 

FOR  1=8  TO  ASIZE 

SS 

2070 

IF  CHRSCCHJ  ogstj.  Jj  THEN  J 

=e:GOT 

PO 

628 

N=nclJ 

0  2890 

GX 

638 

?  «1;N 

RL 

2888 

IF  J  =  LENcySij  THEN  2100 

PV 

635 

REn  ■  FOR  TURBO  BASIC.  USE: 

FR 

2898 

NEXT  I 

AI 

648 

REn  XPUT  ttl.N 

HZ 

2180 

REn 

GG. 

658 

NEXT  I 

SZ 

2110 

REn  FIND  UARIABLE  LOCATION 

DD 

668 

GOSUB  150e:REn  GET  TinE 

IF 

2120 

REn 

RF 

678 

REH 

HH 

2130 

UUL0C=UUTST+cUNUn»«8 

DD 

668 

?  :?  "HRITE  SS    TO  DISK" 

AO 

2148 

0FFSETLO=PEEKtUUL0C+2» 

RJ 

698 

REH 

UU 

2158 

0FF5ETHI=PEEKtUUL0C+3J 

LD 

760 

CLOSE  t«l 

UZ 

2168 

UDiniL0=PEEKtUUL0C+4> 

ZJ 

718 

OPEN  »l,8.8."Dl:STRING.DAT" 

SP 

2170 

gDiniHI=PEEKcUUL0C+5J 

tJ 

728 

POKE  18.e:P0KE  19.0:POKE  28.8 

YN 

2188 

UDin2L0=PEEKcUUL0C+6> 

VC 

738 

?  nl;SS 

UD 

2198 

UDin2HI=PEEKtUgL0C*7J 

PZ 

735 

REn  ■  FOR  TURBO  BASIC.  USE: 

JB 

2288 

?  :?  "US  =  "•.yysi"      uNun  =  - 

;UNUn 

VO 

748 

REH  BPUT  ttl. ADRCS$> .SSIZE 

AH 

2218 

RETURN 

DC 

758 

GOSUB  ISeSiREn  GET  TIHE 

ZB 

2999 

REn  CIO  nETHOD 

RE 

760 

REn 

LG 

3008 

AD  =  ADRcSSi  :  ADHI  =  INTcaD^256i 

:  ADLO  = 

LR 

770 

CLOSE  Ml 

AD-ADHIW256 

UE 

780 

?  :?  "(amsBBHcmaiaimciaDQiBiBQiiiiDDSimii" 

AZ 

3010 

I=848:P0KE  I+2.7:P0KE  I+4.ADL0:P0 

HF 

799 

INPUT  DELAYS 

KE  1+5. ADHI:POKE  I+8.255:P0KE  1+ 

9.255 

BT 

880 

REn 

TF 

3030 

N  =  USRcADRc-hhhCLUm"i  , 16> 

KE 

810 

7  17  "FILL  nc»  MITH  ONES" 

CD 

3040 

N=PEEKcI+9>*256+PEEKtI+8> 

BX 

828 

REn 

AB 

3858 

RETURN 

FEBRU, 

iRY  198C 

3 

33 


FRIENDLY  QUIZ  THAT  KIDS  LIKE  USING 


SPELLING  FLASHCARDS 


Article  on  page  22 


LISTING  1 


Don't  typ€  the, 
TYPO  II  Codes! 


<:^ 


18  REM  SPELLING  FLASH  CARDS  CUER-SS 

28  REM  BV  ANDY  BARTON 

38  REH  CC11988.  ANTIC  PUBLISHING 

88    GRAPHICS    IBsPOSITION    8,3:?    tt6;"g[a[ilB 

Oiai2i[aaiiiiG]@[aBeE][BQig" :  ?  <*6:?  ne:?  tte;-       b 

II  andw  barton" 

98  GOTO  5588 

186  REM  SUBROUTINES 

lie  REM  COUNTDOMN  TIMER 

128  JIFS  =  SEC»68!THI=clNTtJIFS''256>>  sTL 

0U=JIFS-THI»256 

138  POKE  66.1:P0KE  548 , TLOU : POKE  541. T 

HI:POKE  554,l:PaKE  66.8 

148  RETURN 

158  REM  TUNE 

168  FOR  Z  =  i.    TO  NTS 

178    T=tINTcRNDc8»»7J+lJ»5+48 

188  FOR  L=14  TO  4  STEP  -2 

198  SOUND  8.T,18,L 

288  NEXT  LsNEXT  Z 

218  SOUND  8,8,8,8:RETURN 

228  REM  BUZZER 

238  FOR  Z=l  TO  NTS 

248  SOUND  8.58.6,18 

75(1  MPyT  7 

268  SOUND  8.8.e.8:RETURN 

278  REM  MAIN  SUB  1 

288  TEnP=TRACKc8,X>Mi5 

298  AH«=AUFStTEMP-TEMP+15-lJ 

388  GOSUB  828 

318  XAH=:9-INTctAUL  +  lJ^2> 

328  REM  MAIN  SUB  lA  --  UIEM  MORD 

338  SEC=UIEUsGOSUB  118 

348  POSITION  XAU-M.5:?  *t6;AU$ 

358  IF  PEEKcTFLAGi  THEN  358 

368  REM  BLANK-OUT  LETTERS 

378  GOSUB  878 

388  FOR  Z  =  l  TO  AML:POSITION  XAU-^Z.ei? 

n6;"-"; :NEXT  Z 

398  ANS$=BLANK«sREn  15  SPACES 

488  RETURN 

418  REM  MAIN  SUB  2 

428  REM  INPUT  LETTERS 

438  CHC=l:GOSUB  788 

448  POSITION  XAU+CHC.5:GET  »6.C:IF  Co 

32    THEN    CHC=CHC+l:GOTO    548 

458    POKE    CH.255:SEC=LIMIT:G0SUB    118 s PO 

SITION    XnU+CHC.6:?    tt6;">" 

468    IF    PEEKCCH10255    THEN    GET    t*3.CHR:G 

OTO    498 

478  IF  PEEKcTFLAG>=e  THEN  588 

488  GOTO  468 

498  IF  CHR=27  OR  CHR=155  THEN  POKE  712 

,68:G0SUB  768  :  T0T  =  T0T  +  1 : GOSUB  338:G0T0 

43e:REM  eESCi  OR  RETURN 
588  IF  CHR=126  THEN  65e:REM  DELETE 
518  IF  CHR032  AND  CHR045  AND  CHR039 

AND  CHR<e5  OR  CHR>98  THEN  448:REM  NOT 

■■  ".'•-••.  A-Z 
528  POSITION  XAM  +  CHC.6:?  «6  ;  ■■-"  =  POSITI 
ON  XAU+CHC.5:?  «6;CHRScCHR> 
538  ANSS (CHC.CHC>=CHR$CCHR) :CHC=CHC+1 
548  IF  CHC<=AUL  THEN  448 
558  REM  CHECK  SPELLING 

568  IF  ANS$cl,nULi=nU$  THEN  NTS=UTUNE : 
GOSUB  150:TOT=TOT+1 !C0R=C0R*1 :G05UB  78 

8:ANS$= GOSUB  87e:RETURN 

578  HEM  MISSPELLED 

588  POKE  712.68!T0T=T0T+1 

598  NTS=:BUZZ:G0SUB  228 

688  GOSUB  760 

618  FOR  Z=l  TO  flUL 

628  IF  AU$  CZ.  ZiOANSScZ.Zi  THEN  POSITI 

ON  XAH+Z.5--?  n6;"  " 

638  NEXT  Z 


OE 
01 
TP 


GE 
QU 
RN 
ZM 

LT 
ZC 

ZD 
ZL 
BY 
OG 
ZZ 
JA 

US 

DK 

ZE 
OJ 
UO 
TN 

ZI 
ZO 
TE 
UU 
ZU 
SO 
YD 
JZ 


LX 
MK 

AA 

RN 
UL 


AS 
LM 


OK 

AF 
RN 

UH 
PL 
IL 

RF 
XK 
PE 
JL 
IB 
AB 
NN 
ZC 


SY 
HF 


:CHC=CH 
:  ANS$cC 


:TRAC 


648  GOTO  438 

658  IF  CHC=1  THEN  448 

668  POSITION  XAU+CHC.6:?  »S:' 

C-l:POSITION  XAU+CHC.5:?  »6;' 

HC.CHC>= GOTO  448 

678  REM  TRACK  SUB 

688  POKE  712.58 

698  FOR  X=FL  TO  1  STEP  -1 

788    IF    TRACKd.Xi     THEN    TRACKcl.Xi: 

K(l. X>-l:GOSUB  288:G0SUB  438 

718  NEXT  X 

728  FOR  Z=l  TO  FL s IF  TRACKcl.Zi  THEN  7 

48 

738  NEXT  Z:TRACKci,8i=8 

748  RETURN 

758  REM  SET  TRACK  SUB 

768  TRACKcl,e>=l:TRACKcl.Xi=REPEAT 

778  REM  DISPLAY  SCORE 

788  POSITION  8,Bi?  «f6;"T0TAL  "iTOTsPOS 

ITION  8.1:7  ««6;"RIGHT  "iCOR 

798  Z  =  CHOICECCCi 'POSITION  11.8:?  «*6;"L 

1ST  «";Z 

795  POSITION  ll-2»tcDD*cZ«ll  +  9.Z»ll  +  9»< 

>••    ">.l:7    tt6;DD$cZ»ll.ZMll  +  ie> 

888  RETURN 

818  REM  SHORT 

828  AUL=15 

838  IF  AUSCAUL. AUL>="  "  THEN  AUL=AUL-1 

:IF  AUL>8  THEN  838 

848  IF  AUL>e  THEN  AU$=AU$ (1. AUL> 

858  RETURN 

868  REM  BLANK-OUT 

878  POSITION  8.5:?  tt6;BLANK$ 

888  RETURN 

898  REM  LOAD  FILE 

988  FILENAMES="Dl:" 

918  Y=4:Z=CH0ICECCC>«11:F0R  X=8  TO  7:1 

F  DOS  cZ  +  X,Z  +  X»  <>■'  "  THEN  FILENAMES  cY ,  Y 

>=DDStZ+X.Z+XJ :Y=Y+1 

928  NEXT  X 

938  FILENAMES  CYJ  =■'.■■:  FILENAMES  CY  +  H=DD 

ScZ+8.Z+ie» 

948  TRAP  988:CL0SE  Ml :  OPEN  <*1.4.e,FILE 

NAMES 

958  INPUT  »1;FL.UIEU 

968  FOR  X=l  TO  FL : INPUT  Wl ; TEMPS : Y=15» 

X  :  AMFStY, Y  +  15-1J=TEMPS:NEXT  X  :  AHFS cY  +  1 

5»="  •• 

978  TRAP  48888:CL0SE  «1:RETURN 

988  NTS=BUZZ:GOSUB  228:?  "ERROR  --  ";F 

ILENAMES;"  is  not  a":?  "Spelling  Flash 

Card  file" 
998  FOR  Z  =  l  TO  35e:NEXT  Z  :  POP  :GOTO  46 
88 

1888  REM  SAUE  LIST  TO  DISK 
1818  IF  FL=0  THEN  POSITION  2.21:?  BLAN 
KS;BLANKS;"S  ABORTED" : GOTO  4518 
1820  CLOSE  >tl:OPEN  <*1 .  8  ,  0  .  FILENAMES 
1830  ?  «»1;FL:?  ttl;UIEM 

1840  FOR  X  =  l  TO  FL:Y  =  15»«X:?  «l;AMFScY, 
Y+15-1J :NEXT  X 
1858  GOTO  4518 
1868  REM  ML  SUBROUTINE 
1878  POKE  752.1 

1888  DL=PEEKc56e>+PEEKc561>w256 
18  9  0  SC=PEEK<DL*4>+PEEKtDL+5>»256 
1188  RETURN 

1118  Sl=PEEKtSC+784> : S2=PEEKc5C+784 J 
1128  X=USR(ADLON.SC+408.ADR(STORAGE$l. 
168.17e8.SC+4ee.88.SC+56e.SC+488.4ee.A 
DLDAT.DL+15.4> 

1138  TC  =  l:Pl  =  23:IF  AHC  =  1  THEN  T2  =  C**15: 
AMSz:fiUFS  CT2.T2  +  15-1J 

1148  POSITION  Pl-1- CC>9> .18:?  C;"  ";AH 
* 
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1158  P2=SC+443:P0KE  P2+TC, 255* tftMC=l J = 
REM  PUT  BAR  UNDER  FIRST  LSTTER  IN  GR.7 

1168  RETURN 

1178  X=USRcfiDL0FF.5C+879,SC+959.488,ftD 

RcST0RAGE$l,SC+4  88,16e.DL+14,DL+15,4> 

1188  POKE  50+784. Sl:PDKE  SC+784,52 

1198  RETURN 

3888  REM  PROCESS  CHOICES 

3818  FOR  CC=1  TO  CH0ICE(8i 

3828  GOSUB  988 

3838  REM  RADOniZE  TRACKING  ARRAY 

3848  FOR  X=8  TO  FL : TRACK cB , X J =8 : TRACK c 

1,X>=8:NEXT  X 

3858  FOR  TC=1  TO  FL 

3868    X=INTcRNDce>«FL>+l 

3878    IF    TRACKC8.X>=8    THEN    TRflCKcB.XJ^T 

C:GaTO    3188 

3888  X=X+l!lF  X>FL  THEN  X=l 

3898  GOTO  3878 

3188  NEXT  TC 

3118  REM  LIST  UORDS 

3128  POKE  752.8 

3138  GRAPHICS  2« cFL < 11» +1* cFL > 18  AND  F 

L<21J+8»<FL>2e» :POKE  752,1 

3148  IF  FL>28  THEN  3168 

3158  FOR  X=l  TO  FL : POSITION  2.X-l!G0SU 

B  3198:NEXT  X:GOTO  3210 

3168  HFL=INTccFL+l>^2> 

3178  FOR  X=l  TO  HFL:POSITION  4.X-l!G0S 

UB  3198SNEXT  XilF  X>FL  THEN  3218 

3188  FOR  X=X  TO  FLsPOSITION  20.X-HFL-1 

:GOSUB  3198:NEXT  X:IF  X>FL  THEN  3218 

3198  IF  X<ie  THEN  ?  «t6;"  '•; 

3288  ?  »«6;X;"  ••;:V  =  15hx;?  tt6;  flUF$  cY.  y  + 

15-lJ :RETURN 

3218  ?  :?  •■  PRESS  ANY  KEY" 

3228  GET  tt3,Z 

3238  REM  MAIN  LOOP 

3248  GRAPHICS  2+16:PaKE  788 . 214 : TC=1 : T 

0T=e:C0R=8:G0SUB  788 

3258  POKE  756.CHRSET/'256 

3268  FOR  AUC=1  TO  FL 

3278  IF  TRACKcl.ei  THEN  GOSUB  688 

3288  POKE  712.e:X=AUC 

3298  GOSUB  28e:G0SUB  438 

3388  NEXT  AUC 

3318  IF  TRACKcl.ei  THEN  GOSUB  688:G0T0 

3318 
3328  REM  REUARD  SCREEN 
3338  POKE  712.81?  «*6;"   ";BLANK* 
3348  POSITION  5.5<7  «t6;  "fflOiaiaWIDXSia"  >  NTS 
=LTUNE:GOSUB  158 
3358  NEXT  CC 

3368  POKE  CH.255>P0SITI0N  2.8>?  «*6;"AN 
Y  KEY  TO  GO  ON"<GET  tt3.CHR:G0T0  4518 
3588  REM  ADD  NEU  LISTS 
3518  GRAPHICS  2 : T2«=BLANK« < 2=8 
3528  POSITION  2.8:?  «*6;"ts;pe  in  new  li 
St" 

3538  POSITION  2.3i?  «6; "TITLE i ": INPUT 
T1«:IF  Tl*="  "  OR  Tl«=""  THEN  ?  "H" : 7 

>7  :?  "AB0RTED":G0T0  4518 

3548  IF  Tl«cl.l><"A"  OR  T1«<1.1J>"Z"  T 

HEN  ?  !7  "Must  Start  with  a  LETTER":FO 

R  X=l  TO  IBB'NEXT  XiGOTO  3518 

3545  IF  LENcTl$i>8  THEN  7  "H" i 7  =7  "To 

0  Lon9!"sF0R  X=l  TO  188:NEXT  X'GOTO  35 

IB 

3558  Y=l!FOR  X=l  TO  LENCTl$l 

3568  IF  Z=8  AND  TlScX.X>="."  THEN  T2Sc 

Y>=T1SCX.X» !Z=Y+3: Y=Y+1 

3578  IF  TlScX.XJ >="e"  AND  TlScX.X><="9 

"  OR  TISCX.XJ >="A"  AND  TlScX.X><="Z"  T 

HEN  T2ScY>=TlStX.X» ! Y=Y+1 

3588  NEXT  X:IF  LENcT2S»>12  THEN  T2S=T2 

SC1.12* 

3585  IF  Z>e  AND  LENcT2$i>Z  THEN  T2$=T2 
SCI.ZJ 

3586  Zl=LENtT2S> sFOR  X=l  TO  LENcT2S»!l 
F  T2»tX,X»="."  THEN  Zl=X-l!Z=8 

3587  NEXT  X  :  T2S-T2* cl, Zl J 

3598  IF  Z=8  THEN  T2S CLEN cT25> +1> =" . DAT 


3595  POSITION  2 

7:7  »6;"ACCEPT7 

THEN  3518 

3688  FILENAnE$= 

3618  POSITION  8 

EUIEU7" 

3628  TRAP  3638 : UIEU=DUIEU s INPUT  Z:UIEH 


.5i7  tt6;T2$: POSITION  2. 
CN>"!GET  «»3.Z:IF  Z  =  78 

•Dl!":FILENAnE«c4J=T2S 
.7:7  tt6;"H0U  LONG  TO  PR 


HI 

JB 
TF 
FP 
JD 

OF 
GD 
LP 


RZ 

HU 

IZ 
YO 
AR 

RS 
TJ 


NU 

YK 
QH 

JO 
XL 
OF 


FK 
JY 

XA 

ZY 

RR 

SZ 


UD 
RK 


UY 
DO 

JC 


IN 
OX 

VU 
TE 

NE 
KL 
RX 

XU 

NL 

RH 

jn 


MG 
UU 

PP 
FB 
YB 


NO 

LS 
TX 


3638  TRAP 
;"  SECOND 
3648  IF  P 
3658  GOTO 
3668  REM 
3678  TRAP 
>> :CC=1 
3688  GOSU 
3698  AHC= 
3788  7  i7 
words  fa 
er  new  ti 
3718  TRAP 
88 

3728  7 
UB  118 
3738  IF  P 
3748  7  "H 
3758  FOR 
B  3798:NE 
3768  HFL= 
3778  FOR 
UB  3798:N 
3788  FOR 
:GOSUB  37 
3798  IF  X 
3888  7  X; 
RETURN 
3818  REII 
3828  GRAP 
3838  POST 
to  E 


4e8e8:P0SITI0N  2.9:?  tt6;UIEU 
S":SEC=:UIEU:GBSUB  118 
EEKcTFLAGi  THEN  3648 

3828 
EDIT  LIST 

5888: CHOICE cii=UALcCH0ICE$c2 

B  9ee:TRAP  48888 
l:X=8:GRAPHICS  8:G0SUB  1878 

"This  file  is  set  to  preview 
r  ";UIEU;"  Seconds":?  :?  "Ent 
ne  or  press  BIDSaailSQlB" 

3748:INPUT  Z : UIEU=Z : TRAP  488 

7  UIEU;"  Secands":SEC=UIEU:GOS 


EEKCTFLAG»  THEN  3738 

":IF  FL>28  THEN  3768 

X=l  TO  FL:P05ITI0N  2.X-1:G0SU 

XT  X:GOTO  3838 

INT  t  cFL  +  l>/'2i 

X=l  TO  HFL:POSITION  2,X-1:G0S 

EXT  X 

X=X  TO  FLJPOSITION  21.X-HFL-1 

98:NEXT  X:GOTO  3838 

<18  THEN  7  "  "; 

"  ";:Y=15*X:?  AUFS tY. Y+15-l> : 

INPUT  NEM  UORDS 

HICS  e:GOSUB  ie7e:FL=8 

TION    2.21:?    "BaaQtaB    word       or 

dit  BCGSQmiliiaB    TO     SAUE 


3848 
3858 
E 
3868 

NOT 
3870 
SUB  1 
3888 
Gi  TH 
3898 

Z>47 
1 

3988 
3985 
;  :F0R 

BLAN 
3918 
3928 

NOT 
3938 
ION  2 

X  =  l 
3948 
CHRSc 
3958 
KE  75 
and  p 
3968 
3978 
255 
3988 
3998 
4888 
EAT 
4818 
e:REn 
4828 


POKE  CH.255:GET  M3.CHR 

IF  CHR=155  THEN  iei8:REn  SAUE  FIL 

IF  CHR<48  OR  CHR>57  THEN  3928 : REM 
8-9 

AMC=1:C=UALCCHR$CCHR>>:SEC=8.5:G0 
18 

IF    PEEK(CH>=255    THEN    IF    PEEKtTFLA 
EN    3888 

IF    PEEKCCHI0255    THEN    GET    «3.2:IF 
AND    Z<58    THEN    C=Cm18+UAL cCHR$ cZ> 

IF       NOT     cc<l    OR    C>FL>     THEN    3918 
POSITION    4.23:?    C;"    Is    too    larse" 
X=l     TO     99:NEXT    X:POSITION    8.23:? 
K$; :GOTO    3838 
GOTO    3958 

IF    CHR<65    OR    CHR>9e    THEN    384e:REn 
A-Z 

FL=FL+l:IF    FL>48    THEN    FL=48:P0SIT 
.23:?     "  BaDtnODIjUmiZlfllliaBEimBQJITimLQgB  "  :  F  0  R 
TO     15e:NEXT     X:GOTO     3748 
C=FL:T2=Cm15: AU$=BLANK$: AM$C1,1>= 
CHRi : AUC=e 

POSITION    2.21:?    BLANKS ; BLANKS ;: PO 
2.1:P0SITiaN    2.21:?    "BDOIIJISB    word 
ress    BmSIIDQILGSB" ; 
GOSUB    1118 
IF    AUC=e    THEN    TC=TC+1«P0KE    P2tTC. 

GET  9*3 .  CHR 

IF  CHR=155  THEN  489e:REn  RETURN 

IF  CHR=254  THEN  419e!REn  CTRL  DEL 

IF  CHR  =  126  THEN  IF  TCOl  THEN  422 

DELETE 
IF  CHR=38  OR  CHR=43  THEN  423e>REn 


483 
"B 
484 
CH 
-Z 
485 
486 
CTC 
487 
488 
489 
KCD 
IF 
418 
UF« 
412 
413 


8  IF  CHR=31  OR  CHR=42  THEN  425e:REn 


8  IF 
R=45 
OR  S 
8  GO 
8  PO 
,TCJ 
8  TC 
8  PO 
8  PO 
L+4J 
AML  = 
8  T2 
CT2. 
8  IF 
8  X  = 
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CHR>64  AND  CHR<91  OR  CHR=32  OR 
OR  CHR=39  THEN  GOTO  4868 : REM  A 

PACE  OR  -  OR 

TO  3988 

SITION  P1  +  TC.18:7  CHR$  (CHR>  : AU$ 

=CHR$<CHR> :POKE  P2+TC.B 

=  TC  +  l!lF  T015  THEN  TC  =  15 

KE  P2+TC.255:G0T0  3988 

KE  CH.255:G0SUB  828:P0KE  94. PEE 

:POKE  95.PEEKcDL+5> :GOSUB  1178: 

8  THEN  4168 

$c1,15>=BLANK$:T2SC1. AUL>=AU$: A 

T2+15-1>=T2S 
AUC=8  THEN  3748 

C:IF  FL<21  THEN  POSITION  2.C-1: 

continued  on  next  page 
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G05UB  3?9e:G0T0  3830 

4148  IF  C>INTCCFL+1>^2>  THEN  POSITION 
21,C-HFL-l!G0SUB  379erG0T0  3830 
41S8  POSITION  2>C-l:G0SUB  3790:GOTO  38 
30 

4160  IF  FL<2  THEN  POSITION  2,19:?  BLflN 
KS;"   ABORTED"; :GOTO  4510 
4170  IF  C=FL  THEN  flMF«=ftMF« cl . T2-1J : FL 
=FL-l:GOTO  3740 

4180  flUFScT2»=ftUF9cT2+15> : FL=FL-1 i GOTO 
3740 

4190  IF  TC  =  15  THEN  nUSclS»= GOTO  42 

IB 

4200  AU$cTC>=nUScTC+l> : AH$C15>="  " 
4210  POSITION  Pl+l,10:7  AU^iGOTO  3980 
4228  POKE  P2+TC.0iTC=TC-l!POKE  P2+TC,2 

55:P05ITI0N  P1  +  TC.10!?  AU*cTC.TC»  = 

GOTO  3980 

4230  IF  TCOl  THEN  POKE  P2  +  TC,  0  i  TC  =  TC- 

l:POKE  P2+TC.255 

4240  GOTO  3980 

4250  IF  TC015  THEN  POKE  P2  +  TC,  0  s  TC  =  TC 

+1!P0KE  P2+TC.255 

4260  GOTO  3980 

4500  REM  DISK  DIRECTORY  &  CHOOSE  UORD 

LI5TC5» 

4510  CLOSE  Ml:OPEN  »1 .  6  .  0  ,  "Dl  :  •*  .  DAT" 

4520  DDSH>="  "!DD*C65»11J= DD$(2>  = 

DD$ 

4530  DD=1 

4540  INPUT  ttl.TEHPS 

4560  IF  TEI1PSc5.16»="FREE  SECTORS"  THE 

N  4590 

4570  DDS  cllMDD,ll«DD  +  10»=TE«1PSc3,13>  :D 

D=DD+1 

4580  GOTO  4540 

4590  CLOSE  «l!DD=DD-l 

4608  GRAPHICS  2^ cDD< 111 +1^ (DD>10  AND  D 

D<21»+0»cDD>20> iPOKE  752.1:?  "H" : IF  DD 

=8  THEN  4740 

4610  IF  DD>20  THEN  X=0:GOTO  4630 

4628  FOR  X=l  TO  DD : POSITION  2.X-1:G0SU 

B  4710!NEXT  X:GOTO  4740 

4630  IF  X=41  THEN  4680 

4640  TEt1P  =  DD»fDD<41>+40*cDD>40» 

4650  HDD  =  INT  t  tTEHP  +  lJ''2» 

4660  FOR  X=l  TO  HDD:POSITION  4,X-l:G0S 

UB  4710:NEXT  X^IF  X>TEMP  THEN  4740 

4670  FOR  X=X  TO  TEMP = POSITION  20.X-HDD 

-i:G05UB  4718!NEXT  XjGOTO  4740 

4680  HDD=INTC cDD-40+lJ^2>+48 

4698  FOR  X=X  TO  HDD:P0SITI0N  4,X-41:G0 

SUB  4710:NEXT  X:IF  X>DD  THEN  4740 

4700  FOR  X=X  TO  DD:P0SITI0N  20.X-HDD-1 

:GOSUB  4710:NEXT  X : GOTO  4740 

4710  IF  X<10  THEN  ?  «6;"  "; 

4720  ?  «6;X;"  "  ;  DD$  tX»«ll.  X«11  +  18J  ;  ••  RET 

URN 

4738  REtl  INPUT  MESSAGES 

4748  POKE  752.0 


4750  POSITION 
3  or  3.5.9  or 


2.20: 
2-7' 


■Choose    HEDB    cEX 


ISBEIiH    Edit    a    list 


IQ!IB    New    li 


■[UaommSIH    More    ch 


•N" 
•E- 
•0- 


THEN  3510 
THEN  3670 
OR  CHOICESCl. 


4760  ; 

St" 

4770  IF  DD>40  THEN 

oi  ces" 

4788  ERR0R=5880 

4790  INPUT  CHOICES 

4888  L=LENcCHOICES) 

4810  IF  L=0  AND  DD>40  THEN  GRAPHICS  0: 

POKE  752.1:?  "H":GaTO  4630:REn  MORE  CH 

DICES 

4820  IF  L=0  THEN  4688 

4838  IF  CHOICE«tl.l>=- 

4848  IF  CH0ICE«C1.1>=' 

4858  IF  CH0ICE$<1.1><- 

1>>"9"  THEN  5888 

4860  CC=e)TEnP«=BLANK«<TC=e>DflSH=8 

4878  FOR  V=l  TO  L 

4888  IF  CHOICE«cY.Y><"e"  OR  CHOICE«cY> 

Y>>"9"  THEM  4910 

4898  TC=TC*1 

4900  GOTO  495e>REM  NEXT  Y 

4910  IF  TC08  THEN  CC  =  CC  +  1 :  CHOICE  cCO  = 

UALCCH0ICESCY-TCI> :TC=0:IF  CHOICE CCO > 

DD  THEN  GOTO  5000 

4920  IF  DASH=1  THEN  GOSUB  4990:6010  49 

40 

4930  IF  CHOICE«CY. Y>="-"  THEN  DASH=l:G 

OTO  4958 

4948  IF  CHOICESCY. Y> <>"."  THEN  5888 


MT 
MT 


GC 
AL 
OE 

MD 

BU 

AM 
OZ 
NG 
ME 

NX 

FO 

JS 

OT 

TY 

HM 

YU 
RY 


LM 
PJ 


AH 
GJ 
CX 
SK 


UH 


EJ 
ED 
JJ 
LJ 
MU 


RO 


FG 


PZ 


AT 


LU 


XS 
RU 


4958  NEXT  Y 

4968  IF  TCO0  THEN  CC=:CC  +  1 :  CHOICE  cCO  = 

UALCCHDICE«CY-TC>> :IF  CHOICE ccO >DD  TH 

EN  GOTO  5000 

4970  IF  DASH=1  THEN  GOSUB  4990 

4988  CH0ICEc8>=CC:GaTa  3018 

4998  DASH=8:CC=CC-l:X=CH0ICECCCl :Z=CHa 

ICECCC+IJ -X:FOR  CC=CC  TO  CC+Z 

4995  CH0ICEcCC>=X:X=X+1:NEXT  CC:CC=CC- 

l:RETURN 

5000  NTS=BUZZ:GOSUB  220:?  "ERROR  --  Mr 

009  Input  Forn"; :SEC=2:G0SUB  118 

5010  IF  PEEKcTFLAGi  THEN  5010 

5020  GOTO  4600 

5500  REM  EQUATES  TABLE 

5510  REM  UALUE  UARIABLES 

5520  MTUNE=20:REM  LENGTH  OF  TUNE  FOR  U 

ORD 

5530  LTUNE=B0:REM  LENGTH  OF  TUNE  FOR  F 

INISHING  LIST 

5540  BUZZ=20:REM  LENGTH  OF  BUZZER  FOR 

ERROR 

5550  DUIEU=8.7S:REn  SECONDS  TO  UIEU  UO 

RD  CINITIAL  DEFAULT  UALUE> 

5568  LIMIT=20:REM  TIME  LIMIT  cSECONDSi 

TO  TYPE  EACH  LETTER  OF  THE  MORD 
5570  REPEAT=3:REM  NO.  OF  TIMES  TO  REPE 
AT  A  MISSED  UORD 
5730  REM  INITIALIZE 
5740  DIM  STORAGE$cl60J :ST0RAGESC1J="  " 

:  STORAGES cie8>= STORAGES c23 =STOR AGE 

$:DIM  BLANKSC38> 

5750  BLnNK«=5T0RAGE«:DIM  DD$ C65M11 j : RE 
M  DISK  DIRECTORY 

5760  DIM  FILENnMEScl5>.CHOICE$ci20> .TE 
MP$c32i .TSC144» .TlStl7>.T2*cl7>. CHOICE 
C64> 

5770  AUC=8:REM  ACTIUE  UORD  COUNT  UflRIA 
OLE 

5780  TFLAG=554:REM  FLAG  FOR  COUNTDOUN 
TIMER  ROUTINE 

5790  DIM  AMF*cc40wi5>+15» :REM  ACTIUE  U 
ORD  FILE  -  A  STRING 

5808  DIM  TRACKC1.401 :REM  REM  TRACKING 
MATRIX  -  LEUEL  (0.X>.  0=CORRECT   NOT  8 
STILL  TO  DO 

LEUEL  cl.XJ  KEEPS  TRACK  OF 
NO.  OF  TIMES  LEFT  TO  REPEAT  A  MISSED  U 
ORD 

5820  DIM  AU$C15>:REM  ACTIUE  UORD 
5830  DIM  ANS$C15>:REM  ANSUER 
5848  CH=764:REM  LAST  KEY  PRESSED 
5858  CLOSE  tt3:0PEN  »3.4.0."K:" 

5860  T$ci,72>="h  digmmamnaBOSiaBmBissiaBEisa 

msBijimffiDSh  ttm  DBizi  di^  [Bz  dm  aiz  am  mmwh  am 

■naQBDiJiDQiua" 

5870    T$c73.144i="mS[3[s][JBEiam[UnS[DeBGn    dZ    \BiB 

die  ffizisihahCihaEihaBhamhaDhaiiihniiiaHnHiesman 

5  888  TEMPS="h": TEMPS t2 . 19» =TS t 105 . 122> 

:TEMPSC2  0.32J=TSC12  8.140» :X=USRcADRcTE 

MP S>, ADR CTSI. 1536. 1441 

5890  ADL0N=1567:ADL0FF=1593:ADLDAT=167 

6 

5900  CHR5ET=CPEEK<106>-8»»256:X=USRC15 

36. 57  344. CHRSET.512> 

5910  RESTORE  5920:FOR  Z=5e4  TO  511:REA 

D  X:POKE  CHRSET+Z.X:NEXT  Z:REM  REDEFIN 

E  "_" 

5920  DATA  0.126.0.0.0.0.0.0 

5930  GOTO  4518 


5818    REM 


LISTING  2 


AH 
PY 
FJ 
RO 
EU 

IJ 
PR 

UO 

RD 

PY 


10 

REM 

SPELLING 

FLASH 

CARDS-LISTING  2 

20 

REM 

BY  ANDY 

BARTON 

38 

REM 

cc>  1985 

.1987 

ANTIC  PUBLISHING 

35 

REM 

CREATES 

LINES 

586£ 

-5870 

40 

REM 

CLINES  18-250 

MAY 

BE  USED  UITH 

OTHER  BASIC  LOADERS  IN  THIS  ISSUE. 

58 

REM 

CHANGE  LINE  70 

AS 

NECESSARY.} 

68 

DIM 

FNSC28>. 

TEMPS<28» . 

ARSC93I :DPL=P 

EEK(ie592i :POKE 

10592 

.255 

70 

FNS: 

="D:LINES 

.LST": 

REM 

THIS  IS  THE  N 

AME  OF 

THE  DISK 

FILE 

TO  BE  CREATED 

80 

5 

90 

?  "Hmisk  or 

aassette?- 

■j :POKE  764,25 

IF 

NOT  CPEEKC7641 

=  18 

OR  PEEKC764>= 

583 

THEN  90 

36 
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TH 
UB 

MV 
KB 
PU 

LU 

BQ 
VC 

on 

BK 
MM 

CM 
UB 


188  IF  PE 
lie  POKE 
5  GEN 
?  ."B 


TIC 
128 


138  POKE 
148  ?  !? 
se  stand 
158  RESTO 
C=l 

168  ftRS=" 
178  FOR  X 
2.255 
188  LM=LM 
wn ■ • • T-"; 
198  AScC. 
l:NEXT  X: 
288  IF  PE 
MANV  DATA 
E!":END 
218  IF  C< 
LINES!"! 
228  IF  FN 
ssette.  p 


EK«764»= 
764.255: 
ERIC  8AS 
Y  CHARLE 
18592. DP 
i?  "Crea 
bw  .  ■• 
RE  iREAD 

':READ  A 
:1  TO  LE 

UPOSIT 
INTtLM^l 
C»=CHRSC 
GOTO  168 
EKC195» 
LINES!" 

LN+1  THE 
?  "CANNO 
«="C!"  T 
ress  CRE 


18  THEN  FNS="C!" 

GRAPHICS  8s?  "       AN 

IC  LOADER" 
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Coming  Next  in  March  '89  Antic 

•  SpartaDOS  X:  ICD's  Ultimate  Operating  System  Reviewed  by  Matthew  Ratcliff  • 

•  Electric  Signwriter  —  Flashy  Automated  Display  Screens  • 

•  Antic-Pak  Utilities  •  Demon  Racer  ACTION!  Game  • 

•  "Planetflll"  Text  Adventure  2-Part  Disk  Bonus  Starring  Iggy  the  Droid  • 


GET  YOURS  FAST 


Super  Bonus  Program! 

Found  only  on  the  disk,  it's  too  large  a  type-in 
program  to  fit  in  the  magazine. 

Plus  all  172K  of  this  month's  Antic  programs  on 
disk.  Great  8-bit  software  without  typing! 

Phone  Toll  Free 

(800)  234-7001 

Phone  orders  by  Visa  or  MasterCard  only 
AskforADS289 


The  ATARI"  Resource 


Antic  Classifieds 


SOFTWARE,  ETC. 


Discount  Software/Hardware  for  ATARI  8-bit  & 
ST.  30%  below  retail  Atari  130XE  S145,  Supra 
20meg-ST  S579,  ATARI  XF551  disk  drive  $175, 
Anchor  2400  baud  modem  S159,  Star  NX-1000 
color  $239.  Send  »1  for  20  page  catalog  with 
over  500  titles.  Specify  computer  type.  MULTI 
VIDEO  SERVICES,  Box  246,  E.Amherst,  NY 
14051  Phone  716  688-0469  after  6  pm  (4/89) 

Best  PD  disks/prices-fastest  service-FREE 
bonuses-8-bit/ST.  Automatic  DISK-A-MONTH 
program.  Full  disks  less  than  SI. 50  each.  Super 
sample  disk  with  catalog  S3. 50.  Specify  com- 
puter. PATNOR,  FOB  370782,  El  Paso,  TX, 

79937.  (2/89) 

Si's  Fantastic  Selection  of  packed  ATARI  8-bit 
(D-S)/ST  PD  Theme  Disks  is  Far  SUPERIOR  to 
all  other  collections  we've  seen— TRY  US!  Send 
for  MLX  GAMES 'GREATEST  HITS  (our  Most 
Popular  title),  plus  Si's  newest  catalog,  for 
8-bit/S3.00  or  ST/S4.50.  Catalog  alone  (specify 
system)/S2.00.  SOFTWARE  INFINITY,  642  East 
•Waring  Avenue,  State  College,  PA  16801  (2/89) 

FREE  DISK!!  We  would  like  to  send  you  one  of 
the  best  PD  games  avilable  for  the  800/XL/XE. 
Limited  offer.  Write  today.  ComputerActive, 
Box  893-D,  Clinton,  OK  73601  (2/89) 
12  X-RATED  DISKS  FOR  THE  ATARI 
800/XL/XE  only  $14.95  +  S2.50S/H.  You  must 
send  a  signed  statement  of  being  over  21  with 
check  or  money  order  to;  ComputerAaive,  Box 
893-X,  Clinton,  OK  73601  (2/89) 

PRINTSHOP  ICONS  FOR  THE  ATARI 
800/XL/XE.  10  disks  with  over  1000  pictures 
forusewithPrintshop.  Only  14.95  +  2.50  S/H. 
Order  today!  ComputerActive,  Box  893-P,  Clin- 
ton,  OK  73601  (2/89) 

MGL  COMPUTER  WHOLESALERS.  BUY- 
SELLTRADE.  Used  8  Bit  Computers,  Soft- 
ware, Diskdrives,  Modems,  Printers  and  acces- 
sories. Huge  Public  Domain  Library.  Low 
Prices-30  day  Warranty  Call  717-267-3205  or 
267-2865,  or  762-6967  For  Prices  and  Com- 
plete  List  (4/89) 

200  DS/SD  DISKS  OF  PD  SOFTWARE  FOR 
THE  8-BIT  ATARI.  PLEASE  SEND  S3  TO: 
AAPDS  6-18TH  EDGEMORE,  HUTCHINSON, 
KS  67502  FOR  A  CATALOG  LISTING  AND 
DEMO  DISK.(2/89) 


MoonSoft  8-bit.  LabelMaster  and  Multi-Column 
Lister  $10.  Included  with  Small  Business  Sys- 
tem $30.  Send  SASE  for  info.  Black  Moon  Sys- 
tems,  Pob  152,  Windgap,  Pa  18091.(2/89) 

****** 

Stop  overpaying  for  P.D.  software!!!  ALL  8-bit 
disks  only  $2.00  each,  ST  only  S3.00.  Quan- 
tity discounts,  great  selection.  Specify  com- 
puter. Send  large  SASE:  MWPDS,890  N. 
Huntington  St.,  Medina,  OH  44256  (2/89) 

ST  MONITOR  AND  MIDI  CABLES.  Monitor 
cable  gives  520  ST  composite  video/audio  for 
non-Atari  monitor  or  VCR  $15.  PAIR  OF  10' 
coiled  midi  cables  for  all  STs  $20.  Include  82 
S/FI  per  order.  Southern  Security,  14007  Long- 
vue,  Baker  LA  70714  (2/89) 

DUST  COVERS:  Protect  your  investment  with 
durable,  anti-static,  water  resistant  covers  cus- 
tom designed  for  your  800XL,  65XE,  130XE, 
1050  Drive,  520ST,  1040ST.  Specify  cover(s) 
and  send  $8.95  each  plus  $2.90  shippilng:  25th 
Century,  234  Fifth  Avenue,  Suite  301,  New 
York,  NY  10001.  (2/89) 

****** 
AUTORUN  SYSTEM.  Make  all  your  basic  pro- 
grams autorun  with  The  Basic  Autorun  System. 
Send  $5. 00  for  disk  to:  R.D.K.  321  Imperial 
Ave  #12-099  Calexico,  CA  92231  (2/89) 

Try  us  for  your  Atari  Public  Domain  software 
needs.  Good  prices,  fast  service.  Write  for  free 
catalog.   Vulcan  Software,   PO  Box  692 

Manassas,  VA  22111-0692(7/89) 

ENJOY  quality  public  domain  software! 
Games — productivity — utilities — communica- 
tions— more!  Catalog  FREE.  .  .demo  disk, 
$3. 00.  Homemade,  6011  Hyde  Park  Circle, 
Suite  202,  Jacksonville,  FL  32210(2/89) 

****** 
FOR  SALE  8-BIT  MULTI  USER  BBS  SYS- 
TEM! The  only  8-bit  BBS  system  of  its  kind. 
Will  sell  everything  you  need  to  get  up  and  run- 
ning within  hours.  Write  today  for  information: 
Micro  Systems,  PO  Box  18346,  Ft.  Worth, 
Texas,  76118  (2/89) 


SynFile+  UTILITY  PROGRAMS.  Print  file  lay- 
out, create  and  save  reports,  undelete  records, 
alter  look-up  tables,  etc.  $19-95  plus  S2.00 
P&H.  Send  large  SASE  for  more  info.  SFP,  4  For- 
est Drive,  Palmyra,  VA  22963  (2/89) 

The  first  100  requests  for  our  list  of  Atari 
800/XL/XE  PD  disks  will  receive  our  best  sell- 
ing game  disk  free.  Hurry  before  the  free  disks 
are  gone!  Limit  one  free  disk  per  address.  1st 
Byte,  P.O.  Box  130822,  Tyler,  TX  75713 

Public  domain  Disks:  ST  $4.00,  800/XL/XE 
$3.00.  Largest  ST  selection.  ST  Bible  on  disk 
$3995.  Blank  disks  $CALL.  VISA/MC.  FREE 
Catalog — Call  or  Write,  Specifiy  Computer. 
BRE  Software,  352  W.  Bedford,  Suite  104-AN, 
Fresno,  CA  93711.  (800)622-7942,  (209)432- 

2159  in  CA.(2/89) 

SAVE  MONEY  ON  ATARI  800/XL/XE  SOFT- 
WARE! Public  Domain  and  Shareware  soft- 
ware! Over  250  Theme  Disks!  Every  disk 
guaranteed!  Fast  dependable  world-wide  serv- 
ice! Send  for  your  Free  descriptive  Catalog! 
BELLCOM,   Box    1043-A,   Peterborough, 

Ontario,  Canada,  K9J  7A5.(2/89) 

Martian  Solutions:  BLOOD  &  DUNG  Order 
BLOOD  and  you'll  receive  a  3  -i-  page  detailed 
Order  BLOOD  walk-through  of  Captain  Blook. 
Just  $3.50  -I-  .50  shipping.  With  the  100+  page 
DUNG  (DUngeonMaster  Notes  Galore)  you  can 
finally  solve  FTL's  great  game.  Includes  Spell 
List,  Detailed  Maps  of  ALL  levels,  hints,  tips  & 
solutions  for  the  toughest  puzzles.  $9.95  plus 
$1.05  shipping.  Mars  Merch.  (address,  etc. 
below. )Martian  Light  PhasarWe've  convened  a 
major  manufacturer's  gun  to  be  used  with  all 
Atari  8-bit  computers.  100%  compatible  with 
the  Atari  XL/XE  game  system  gun.  We  believe 
it  to  be  more  accurate  and  better  weighted  than 
most  any  gun  in  the  universe.  $39. 95  plus  $3 
shipping  (UPS).  312/530-0988  MARS  Merchan- 
dising, 15W614  Diversey,  Elmhurst,  IL  60126- 
1257  (2/89) 

AGAPE  GAMES-5  CHRISTIAN  GAMES. 

KINGS  GLORY  Arcade  like  Adventure  with  26 
mazes  and  a  maze  maker.  BIBLE  WORD 
SEARCHER  with  30  puzzles  and  a  puzzle  gener- 
ator. Plus  3  games  that  teach  the  Books  of  the 
Bible.  For  Atari  8-bit  (requires  48K  +  disk) 
$12.95-Darael  Sharpe,  GPO  911,  Chicopee,  MA 
01021.(3/89) 
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West  Coast  Advertising  Sales  Representative:  East  Coast  Advertising  Sales  Representative:  Address  all  advertising  materials  to: 


AUSTIN  HOLIAN 

544  Second  Street 

San  Francisco,  CA  94107 

(415)  957-0886 


DAVID  S.  KESTER 

544  Second  Street 

San  Francisco,  CA  94107 

(415)  957-0886 


KATE  MURPHY 

Advertising  Production  Coordinator 
Antic  Magazine 

544  Second  Street 

San  Francisco,  CA  94107 
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AN  AD  IN  ANTIC  REACHES  MORE  THAN  100,000  SERIOUS  ATARI  USERS 


ComputerVisions 


3257  KiferRoad 
Santa  Clara,  CA  95051 
(408)749-1003 


A 


STORE  HOURS 
TUE  -  FRI  10am  -  6pm 

SAT  -  10am  -  5pm 
CLOSED  SUN -MON 


.^^     800/LX/XE 
ENTERTAINMENT 

ACE  OF  ACES  13.50 

ALIANTS    26.95 

ALT.  REALITY: 

THE  CITY  26.95 

THE  DUNGEON  35.95 

BEYOND  CASTLE  WOLF..  17.95 

BISMARK  26.95 

CASTLE ' WOLFENSTEIN. .  17.95 

GAUNTLET  (64K)  31.50 

DEEPER  DUNGEONS...  22.50 

GUNSLINGIS    26.95 

KARATEKA    13.50 

KICKSTART    S.95 

LAST   V-S     8.95 

MOUSETRAP     17.95 

NINJA    8.95 

SARACEN   17.95 

SPEEDKING  8.95 

SPIDERMAN  7.95 

SPITFIRE  40  31.50 

STRIP  POKER  26.95 

THE  HULK  7.95 

TOMAHAWK  (64K)   26.95 

TOP  GUNNER  22.50 


SPORTS 

COMPUTER    3ASEBALL    ..     13.50 
COMPUTER    QUARTERBACK    13.50 

LEADERBOARD    13.50 

MICROLEAG'JE    BASEBALL    35.95 
TRACK    &    FIELD    26.95 


SOFTWARE         C<^:s 
MUSIC  J*1 

MUSIC  COMPEMDIUM  ...  35.95 

MUSIC  STUDIO  31.50 

BANK  ST.  MUSIC  WRITER  13.50 

VIRTUOSO 44.95 

PROGRAMMING 

KYAN  PASCAL 62.95 

LIGHTSPEED  C  35.95 

LOGO  19.  95 

PILOT  19.  95 

PRODUCTIVITY 

ATARIWRITER 30.00 

CELEBRITY  COOKBOOK  ..  26.95 

COMPUTE  YOUR  ROOTS  ..  35.95 

COMPUTER  GOURMET  ....  26.95 

FAMILY  FINANCE  12.95 

HOME  ACCOUNTANT  24.95 

HOME  FILING  MANAGER  .  12.95 

NEWSROOM  (1050  -  64K)  44.95 

NEWS  STATION  26.95 

NEWS  STA.  COMPANION  .  26.95 

PAPERCLIP  W/SPELLl.  .  .  .  29.95 

POWER  PRINT  (1050)...  13.50 

PUBLISHING  PRO  35.95 

SYNCALC  31.50 

TIMEWISE  12.95 

VIDEO  TITLESHOP  (64K)  26.95 

GRAPHICS  COMPANION  17.95 

VISICALC  24.  95 

ART 

GRAPHICS  MAGICIAN  ...  22.50 
BLAZING  PADDLES  31.50 


Si-       SOO/  X Z^/  X E 


ALIEN   AMBUSH    9.95 

ARCHON    19.  95 

ASTEROIDS  15.95 

ATARI  TENNIS  9.95 

BALL  BLAZER  19.95 

BARNYARD  BLASTER 

(REQ.  LIGHT  GUN) ...  24.95 

BATTLEZONE  19.95 

BLUE  MAX  19.95 

CENTIPEDE  14.95 

CHICKEN  (400/800) 9.95 

CLAIM    JUMPER    9.95 

CLOUDBURST    9.95 

DAVIDS   MIDNIGHT    MAGIC  19.95 

DEFENDER    14. '95 

DIG    DUG    19.95 

DONKEY    KONG    5.00 

DONKEY    KNOG    JR 19.95 

E.T.    PHONE    HOME    9.95 

FIGHT  NIGHT  (XL/XE) . .  19.95 

FINAL  LEGACY  19.95 

FOOD  FIGHT  19.  95 

FOOTBALL 14.95 

FROGGER  14.  95 

FROGGER  II  14.95 

GALAXIAN  19.95 

GATO  24.95 

GYRUSS  14.95 

HARDBALL  19.95 

JOUST  19.95 

JUNGLE  HUNT  19.95 

LODE  RUNNER  24.95 

MILLIPEDE  19.95 


MISSILE  COMMAND  

MOON  PATROL  

MR.  COOL  

MS.  PAC  MAN  

ONE  ON  ONE  (XL/XE) . . . 

PAC  MAN  

PAST  FINDER  

PENGO  

POLE  POSITION  

POPEYE  

Q-BERT  

QIX  

RESCUE  ON  FRACTALAS  . 
RETURN  OF  THE  JEDI  . . 

ROBOTRON:2084  

SKY  WRITER  

SLIME  (400/800) 

SPACE  INVADERS  

STAR  RAIDERS  

STAR  RAIDERS  II  

SUPER  BREAKOUT  

WIZARD  OF  WOR 


5.00 
.   19.95 

9.95 

.   19.95 

19.95 

5.00 
24.95 
19.95 
19.95 
14.95 
14.95 
10.95 
19.95 
14.95 
19.95 
14.95 

9.95 
14.95 

5.00 
19.95 

9.95 

5.00 


ATARI  XE  GAME  MACHINE 
$139.95 

Includes  Missile  Command,  Flight 
Simulator  II,  Bug  Hunt,  light  gun, 
joystick,  BASIC  programming 
language,  and  64k  of  memory  with  a 
detachable  keyboard.  Add  a  disk  drive 
and  printer  for  a  complete  home 
computer  system! 


800IXLIXE 

CHILDRENS  EDUCATIONAL  SOFTWARE 


CBS 

(age   3-6   on  dlslc) 

ERNIES   MAGIC    SHAPES    8.95 

ASTROGROVER    8.95 

BIG    BIRD    SPEC.    DELIVERY  8.95 

FISHER  PRICE 

(pre-school  on  cartridge) 

MEMORY   MANOR    8.95 

LINKING    LOGIC    8.95 

DANCE   FANTASY    8.95 

LOGIC    LEVELS    8.95 


SPINNAKER 

ALF  IN  THE  COLOR  CAVES 

(age  3-6-  cartridge) . 
ALPHABET  ZOO 

(age  3-8  cartridge)  . 
DELTA  DRAWING 

(age  4-up  cartridge) 
FACE  MAKER 

{age  3-8  cartridge)  . 
HEY  DIDDLE  DIDDLE 

(age  3-10  disk) 

KIDS  ON  KEYS 

(age  3-9  cartridge).. 
KINDERCOMP 

(age  3-8  cartridge).. 
STORY  MACHINE 

(age  3-8  cartridge 
won't  run  on  XL/XE) 


TINKiTONK! 

(age  4-8  on  disic) 

COUNT  AND  ADD  8.95 

BEING  A  SMART  THINKER  8.95 

ABC'S  8.95 

SUBTRACTION  8.95 

SPELLING  8.95 

DEVELOP    THINKING    SKILLS  8.95 

SAVE  $13.75!!! 

GET  ALL  6  TINK!  TONK!  'S  FCr 


$39.95 


9.95 


WEEKLEY  READER 

(pre   school    -  dlslt) 
STICKY    BEAR    SHAPES    ..       26.95 
STICKEY    BEAR   NUMBERS         26.95 
STICKEY    BEAR   ABC    ....       26.95 


9    95     MATH    ENCOONTER 


9.95 


9.95 


HAYDEN 

(age   4-10      disk) 

9.95     MICRO    ADD/SUBTRACT    ..  9.9: 

MICRO    SUBTRACTION    ...  9.95 

9.95     MICRO    DIVISION    9.95 

(pre-school    disk) 

SHAPE    UP  !     9.95 

9.95     MATCH    UP!     9.95 


SUF'ER    SF'EC:  I^ES        \ 

[l    RECONDITIONED  ATARI  MERCHANDISE  Jil 
•^^fe'                       30  DAY  WARRANTY                         ^^1 

ATARI 

TRACKBALL 

$9.95 

SPICE  UP  THE  ACTION  IN 
YOUR  ARCADE  GAMES!! 

BOOKS  ONLY 

DE   RE   ATARI      10.00 
ATARIWRITER      10.00 
DOS    2.5                12.95 
BASIC    REF.             5.00 
LOGO                         10.00 
BOOKKEEPER         10.00 

ATARI 

SPACE  AGE 

JOYSTICK 

$5.00 

GREAT  GIFTS! 

400  (16K) 
COMPUTER 

$29.95 

48K  UPGRADE  KIT 
$25.00 

600XL 
COMPUTER 

16K  -  $49.95 
64K-  $59.95 

800  (48K) 
COMPUTER 

$79.95 

INCLUDES  BASIC 

820    40    COLUMN 
PRINTER    -    $39.95 

1020  COLOR 

PRINTER/ PLOTTER 

$29.95 

40  COLUMNS  WIDE 

INCLUDES  PAPER  AND 

COLOR  PEN  SET 

1030  MODEM 

WITH 

EXPRESS! 

$24.95 
GET  ONLINE  TODAY! 

1010    PROGRAM 

RECORDER 

$29.95 

410    PROGRAM 
RECORDER  .-   AS    IS 
$9.95    (3    for    S15) 

ATARI 

NUMERIC 

KEYPAD 

$7.95 

INCLUDES  HANDLER 
DISK- 

ATARI 
BOOKKEEPER 

$14.95  -  NO  BOX 

(19.95  WITH  KEYPAD) 

$24.95  -  INBOX 

(29.95  WITH  KEYPAD) 

DISKETTES 
AS  LOW  AS  20  CENTS 

10  FOR  #4.00 

100  FOR  $29.95 

1000  FOR  $200 

MOST  ARE  UNNOTCHED 

WITH  OLD  SOFTWARE 

SHI  PPING  INFORMATION  -  Prices  do  not  include  shipping  and  handling.  Add  $5.00  for  small  items  ($8.00  Min.  for  Canada).  Add  $8.00  for  disk 
drive.  Calif,  res.  include  7%  sales  tax.  Mastercard  and  Visa  accepted  if  your  telephone  is  listed  in  your  local  phone  directory.  Orders  may  be  pre-paid 
with  money  order,  cashier  checit,  or  personal  check.  Personal  cnecl<s  are  held  for  three  weeks  before  order  Is  processed.  C.O.D  orders  are  shipped 
via  UPS  and  must  be  paid  with  cash,  cashier  check  or  money  order.  International  and  APO  orders  must  be  pre-paid  with  cashier  check  or  money 
order.  $20.00  minimum  on  ail  orders.  All  sales  are  final  -  no  refunds  -  prices  are  subject  to  change.  Phone  orders  accepted  TUESDAY  THROUGH 
FRIDAY  from  10:00  am  to  6:00  pm  PST. 

We  carry  a  complete  line  of  ATARI  products  and  have  a  large  public  domain  library.    Write  or  call  for  free 
catalogue.     (408)   749-1003     TUE  -   FRi   10AM  -   6  PM 


PRICES  SUBJECT  TO  CHANGE  WITHOUT  NOTICE  -  ALL  SALES  ARE  FINAL 
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Figure  1,  A 


Figure  I,  B 


Figure  1,  C 


Figure  2 


HARD-WIRED 

Ray  Tracing 

Shadows  and  reflections  for  your  8-bit  graphics.  By  Michael  Bjorkman 

Hard-Wired  Ray  Tracing  creates  complex  pictures  with  multi- 
colored patterns,  reflections  and  movable  objects,  not  unlike  the 
famed  ''Shiny  Bubbles"  demo  on  the  Atari  ST.  This  BASIC  program 
works  on  XL  and  XE  computers  with  at  least  64K  memory  and 


disk  drive. 


lype-ln  Sopiiare 


FEBRUAR-l'  1989 


41 


PROGRAMMING      POWER 


If  you  follow  the  ST  scene, 
you  may  have  seen  Xanth 
Park's  "Shiny  Bubbles"  demo, 
or  pictures  created  with  Tom 
Hudson's  "Ray-Trace  Construction 
Set"  (START,  Spring  1987).  These  im- 
ages were  made  using  principles  of 
ray  tracing,  a  process  now  brought  to 
the  8-bit  Atari  with  Hard-Wired  Ray 
Tracing. 

Figure  7  is  a  series  of  pictures  made 
with  Hard-Wired.  Note  the  reflections 
of  the  floor  and  ceiling  on  the  sphere. 
The  reflections  were  created  with  ray 
tracing  algorithms. 

The  floor  and  ceiling  are  actually 
distorted  Micro  Illustrator  and 
Micropainter  pictures.  Hard-Wired 
shrinks  these  pictures  into  little 
squares,  then  uses  these  squares  to  tile 
the  ceiling  and  floor.  Figure  2  shows 
the  Micro  Illustrator  picture  used  to 
tile  the  floor. 

Our  frame  of  reference  is  kept  as 
simple  as  possible  by  restricting  the 
program  to  one  ceiling,  one  floor  and 
one  sphere.  At  this  level,  we  only  need 
a  tiny  set  of  equations  to  handle  ev- 
ery possible  reflection.  Hence,  the 
program  is  called  "Hard-Wired"  be- 
cause all  of  the  necessary  geometric 
equations  are  explicitely  defined,  or 
"hard-wired"  into  the  program. 

GEHING  STARTED 

Use  your  own  Micro  Illustrator  and 
Micropainter  microscreens  to  create 
your  own  ray  traced  images.  You'll 
need  at  least  two — one  for  the  floor 
tiles  and  one  for  the  ceiling  tiles.  If 
you  want  to  use  pictures  created  with 
other  paint  programs,  use  the  Rapid 
Graphics  Converter  (Antic,  Novem- 
ber 1985)  to  convert  them  to  a  com- 
patible form. 

Next,  type  in  Listing  1,  HARD- 
WIRE.BAS,  checking  it  with  TYPO  II, 
and  SAVE  a  copy  before  you  RUN  it. 

If  you  have  trouble  typing  the  spe- 
cial characters  in  lines  2190,  7070- 
7130  and  8000,  don't  type  them  in. 
Instead,  type  Listing  2,  check  it  with 
TYPO  II  and  SAVE  a  copy  When  you 
RUN  Listing  2,  it  creates  these  hard- 


to-type  lines  and  stores  them  in 
a  file  called  LINES. LST.  To  merge  the 
two  programs,  disk  users  LOAD 
"D:HARDWIRE.BAS"  and  then  EN- 
TER "D:LINES.LST."  Remember  to 
SAVE  the  completed  program  before 
you  RUN  it. 

When  RUN,  the  program  asks 
several  introductory  questions,  in- 
cluding the  position  of  your  eye  and 
the  location  and  size  of  the  sphere. 

The  first  prompt  asks  you  for  the 
coordinates  of  your  viewpoint  (the 
position  of  your  eye  relative  to  the 
screen.)  Under  tWs  coordinate  system, 


values  that  are  very  "close"  to  the 
screen  (between  0  and  -200)  result  in 
a  sphere  that  looks  like  an  ellipse. 

Recommended  Z-values  are  around 
-450.  At  this  distance,  all  portions  of 
the  screen  are  relatively  the  same  dis- 
tance from  the  viewpoint,  and  the 
sphere  appears  circular. 

If  you  don't  know  what  values  to 
use,  press  [RETURN]  and  Hard-Wired 
will  use  the  center  of  the  screen  as 
your  viewpoint. 

Next,  type  in  the  coordinates  of  the 
center  of  the  sphere.  Be  sure  to  place 
the  sphere  below  the  ceiling,  above 


Figure  3 

(0,0)  represents  the  top-left  corner  of 
your  screen,  (319,0)  represents  the 
top-right  corner,  and  (319,191)  is  the 
bottom-right  corner. 

The  Z-axis  runs  "through"  your 
monitor  Objects  "inside"  your  mon- 
itor have  positive  Z  values;  those  in 
front  of  your  monitor  have  negative 
values.  For  example,  the  coordinates 
(319,191,-100)  name  a  point  100  units 
in  front  of  the  bottom-right  corner  of 
the  screen  and  the  point  (0,0,0)  is  on 
the  surface  of  the  screen  at  the  top- 
left  corner 

Type  in  the  coordinates  of  your 
viewpoint. 

Remember  that  your  viewpoint  is 
always  "outside"  the  monitor,  so  your 
Z-coordinate  must  be  negative.  Z- 


the  floor,  and  not  too  far  left  or  right. 
Otherwise,  it  will  not  be  on  the 
screen.  Values  near  the  center  of  the 
screen  work  best. 

Again,  if  you  don't  know  what 
values  to  use,  just  press  [RETURN]  and 
Hard-wired  will  place  the  sphere  in 
the  upper-left  part  of  the  screen. 

Now,  type  the  radius  of  the  sphere. 
This  number  must  be  small  enough 
for  the  sphere  to  fit  entirely  between 
the  ceiling  and  the  floor.  Otherwise, 
the  program  will  print  COORD 
ERROR  on  the  screen  and  re-prompt 
for  the  radius.  If  you  can't  think  of  a 
value,  press  [RETURN]  and  Hard- 
Wired  will  calculate  a  legal  one  for 
you. 

The  next  two  questions  let  you 
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move  the  pictures  within  the  floor 
and  ceiling  tiles.  If  you're  creating  a 
series  of  screens  for  a  "Shiny 
Bubbles  "-style  animation,  you  can 
use  this  feature  to  scroll  the  floor  and 
ceiling  back  and  forth  or  side  to  side. 
The  floor  and  ceiling  move  as  one; 
they  cannot  be  moved  indepen- 
dently. 

If  you  type  160,0,  the  image  will 
be  moved  left,  with  what  would  have 
been  the  middle  of  the  floor  tile 
moved  to  the  left  side  of  the  tile.  Typ- 
ing 0,-95 . 5  will  set  the  bottom  of  the 
screen  half  a  floor  tile  deeper  "into" 
the  image. 

Next,  Hard-Wired  asks  if  you  want 
to  use  its  Dimming  feature.  Type  Y  to 
use  this  feature,  or  N  (or  [RETURN]) 
to  shut  it  off. 

Finally,  Hard-Wired  asks  you  for  the 
microscreens  you  want  to  use  for  the 
floor  and  ceiling  tiles.  You  can  use 
Micro-Painter  or  Micro  Illustrator 
screens.  You  do  not  have  to  type  the 
"D:"  prefix  when  typing  their  file- 
names. Once  Hard-Wired  loads  both 
screens,  the  screen  will  go  dark  and 
it  will  begin  plotting  the  ray-traced 
image. 

When  it's  done,  Hard-Wired  saves 
the  image  to  a  Micropainter- 
compatible  file  called  TRACE. PIC.  If 
you  want  to  use  a  different  filename, 
type  it  into  Une  1380. 

DIMMING 

When  light  reflects  from  an  object 
in  the  real  world,  part  of  the  light  is 
absorbed  and  part  of  it  is  reflected. 
This  makes  the  reflected  image  appear 
somewhat  dimmer 

When  you  use  the  Dimming  fea- 
ture, Hard-Wired  will  dim  the  rays 
refleaing  off  of  the  sphere.  This  limits 
the  number  of  colors  you  can  use  in 
your  original  microscreens  because 
each  each  color  wUl  require  two  color 
registers — one  register  for  the 
dimmed  color  and  one  for  the  pure 
color 

Hard-Wired  dims  the  rays  by 
decrementing  the  color  register  num- 
ber For  example,  a  ray  hitting  the 


floor  on  a  pixel  with  the  color  in  reg- 
ister 3  is  reflected  from  the  sphere  as 
the  color  in  register  2.  A  color  in  reg- 
ister 0  is  reflected  as  color  register  0. 
Since  Hard-Wired  uses  GRAPHICS 
15,  a  four-color  mode,  you  may  only 
want  to  use  two  of  the  available  colors 
when  drawing  your  microscreens.  Al- 
ternatively, you  may  want  to  draw 
your  original  microscreens  with 
several  shades  of  a  single  color,  such 
as  white,  light  gray,  dark  gray  and 
black.  If  you  wish  to  change  the 
colors  that  Hard-Wired  uses,  just  alter 
the  SETCOLOR  statements  in  lines 
2040-2070. 

RAY  TRACING  101 

Ray-traced  images  are  made  by 
reversing  the  path  that  a  ray  of  light 
takes  to  your  eye.  A  diagram  of  one 
path  that  a  ray  may  take  is  shown  in 
Figure  3-  This  ray's  path  begins  at 
your  eye  (the  viewpoint),  passes 
through  the  screen  and  into  the  room 
containing  the  sphere. 

Once  in  the  room  the  ray  might  hit 
the  ceiling,  the  floor,  or  the  sphere. 
If  the  ray  hits  the  sphere,  it  is  reflected 
onto  the  floor  or  the  ceiling.  In  any 
case,  every  ray  that  enters  the  room 
eventually  lands  somewhere  on  the 
floor  or  ceiling. 

When  the  ray  lands,  the  program 
notes  the  color  of  its  "point  of  con- 
tact." This  color  is  "mapped"  onto  the 
screen  at  the  point  where  the  ray 
passed  through  it.  If  we  trace  a  ray  for 
every  point  on  the  screen,  eventually 
we'll  have  a  complete  picture. 

ANIMATIONS 

Once  you  feel  comfortable  with 
Hard-Wired,  you  can  build  anima- 
tions, featuring  scrolling  floors  and 
moving  spheres. 

Hard-Wired  will  not  animate  your 
microscreens;  you  must  use  a  separate 
animation  or  page-flipping  program 
instead.  MovieMaker  will  do  the  job, 
however  you'll  have  to  use  Antic's 
Rapid  Graphics  Converter  to  convert 
your  hard-Wired  pictures  from  Micro- 
Painter  to  MovieMaker  format.  Since 


MovieMaker  pictures  have  half  the 
resolution  of  Micro-Painter  pictures, 
your  microscreens  will  appear 
coarser.  However,  you'll  be  able  to  fit 
twice  as  many  screens  into  an  ani- 
mation. 

There  are  also  many  public  domain 
page-flipping  programs.  They're  also 
simple  to  write.  See  Dave  Plotkin's 
Page  Flipping,  A  Racy  Tutorial 
(Antic,  January  1984)  and  Ian  Chad- 
wick's  I30XE  Memory  Management 
(Antic,  November  1985)  for  more  in- 
formation on  page-flipping. 

Hard-Wired 's  screen  is  turned  off  to 
hasten  the  computations  by  15  to  30 
percent.  Press  [OPTION]  to  see  the 
picture  as  it  is  being  drawn.  Using 
Atari  BASIC,  each  image  takes  about 
two  hours  to  calculate.  You  can 
achieve  much  faster  speeds  with 
BASIC  XE's  "FAST"  mode  or  TUr- 
boBASIC. 

PROGRAM  TAKE-APART 

Lines  1000  to  1640  contain  the 
"hard-wired"  ray-tracing  equations 
needed  to  map  the  pixels  onto  the 
sphere,  floor  and  ceiling. 

Lines  I65O  to  1780  use  INPUT  state- 
ments to  get  the  coordinates  of  the 
viewpoint  and  the  sphere,  the  sphere's 
radius,  and  the  displacement  of  the 
floor  and  ceiling  tiles. 

Lines  1880  to  2010  load  the  two 
microscreens  into  RAM.  One  8K 
block  of  memory  is  set  aside  for  each 
screen,  and  a  third  block  is  used  to 
plot  the  final  ray-traced  image.  All  in 
all,  Hard-Wired  is  manipulating  three 
complete  microscreens  and  three  sep- 
arate display  lists. 

Hard-Wired  finds  the  spot  where 
the  ray  hits  the  floor  or  ceiling,  then 
uses  the  LOCATE  command  to  deter- 
mine the  color  of  the  pixel  it  hit. 
Hard-Wired  then  fmds  the  spot  where 
the  ray  passed  through  the  screen  and 
colors  it  with  this  color  A 

Michael  Bjorkman  of  Seattle,  Washing- 
ton is  making  his  first  appearance  in 
Antic. 

Listing  on  page  30 
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EQUIVALENCE 

New  way  to  speed  up  your  BASIC  programs. 


By  Doug  White 


Equivalence  teaches  intermediate-level  program- 
mers how  to  use  a  powerful  technique  that  speeds 
up  common  BASIC  operations  by  as  much  as  150 
percent,  included  BASIC  demonstration  programs 


Atari  BASIC  is  a  very  friendly  pro- 
gramming language,  but  certain  oper- 
ations can  be  rather  slow.  Disk  I/O,  in- 
teger calculations,  FOR-NEXT  loops, 
etc.  all  involve  floating-point  calcula- 
tions requiring  six  storage  bytes  for 
each  variable  used.  These  operations 
are  slow  because  they  require  many 
integer-to-floating-point  and  floating- 
point-to-integer conversions. 

String  operations,  on  the  other 
hand,  are  quite  speedy.  "Equivalenc- 
ing"  lets  you  apply  these  speedy  oper- 
ations to  other  types  of  data. 
Equivalencing  can  make  numeric  disk 
I/O  and  other  operations  run  up  to 
150  times  faster 

EQUIVALENCING 

Equivalencing  simultaneously 
treats  blocks  of  data  as  string  data  and 
as  floating-point  data. 

Your  Atari  stores  strings  and  num- 
bers as  bytes  in  RAM.  BASIC  uses  a 
series  of  tables  to  remember  which  of 
these  bytes  are  part  of  strings  and 


FIGURE  1 
ATARI  BASIC 

Dl: 

(RAMdisk) 

D8: 

INITIALIZE  M(3334) 
INITIALIZE  S$(20004) 

39.50 
0.33 

39.50 
0.33 

M(3334)                 ^   Dn:  ARRAY.  DAT 
SS(20004)               -^   Dn:STRING.DAT 

99.03 
83.95 

53.58 
5.73 

Dn:ARRAY.DAT     -^   M(3334) 
Dn:STRING.DAT   ^    S8(20004) 

91.95 
19.48 

64.65 
0.44 

which  bytes  represent  floating-point 
numbers.  By  changing  these  tables 
you  can  take  a  series  of  bytes  that  rep- 
resent a  floating-point  number  and 
make  BASIC  treat  these  bytes  as  a 
string  as  well  as  a  number. 

These  tables  also  contain  the  loca- 
tions of  all  the  variables  in  your  pro- 
gram. They  work  like  an  address 
book.  Once  BASIC  determines 
whether  a  series  of  bytes  contain  a 
string  or  a  floating-point  number,  it 


goes  back  to  these  tables  to  find  the 
location  of  these  bytes. 

Change  these  tables  and  you 
change  the  memory  locations  that 
BASIC  will  search  for  the  values  of 
your  variables.  It's  like  telling  your 
mother-in-law  that  you  moved  to  Bor- 
neo. The  next  letter  she  sends  you  will 
end  up  in  Indonesia. 

By  altering  the  values  in  these  ta- 
bles, you  can  take  any  block  of  mem- 
ory and  treat  it  like  a  string. 
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Equivalencing  techniques  let  you 
take  advantage  of  BASIC'S  speedy 
string  operations  while  avoiding  time- 
consuming  floating-point  conver- 
sions. 

SPEED  DEMOS 

Listing  1  uses  sound  to  illustrate  this 
dramatic  improvement  in  speed.  Type 
in  Listing  1,  EQUIVl.BAS,  check  it 
with  TYPO  II  and  SAVE  a  copy  to 
disk.  Be  sure  to  remove  the  TYPO  II 
program,  as  described  in  the  TYPO 
II  instructions,  before  you  RUN  the 
program. 

The  first  part  of  the  program  plays 


tables,  fooling  BASIC  into  thinking 
that  S$  has  moved  to  a  different  ad- 
dress (the  audio  control  registers). 

The  next  time  BASIC  looks  for  the 
bytes  in  S$,  it'll  end  up  at  the  audio 
control  registers.  Since  BASIC  thinks 
that  S$  is  located  at  the  audio  control 
registers,  anything  we  put  into  S$  will 
appear  in  these  registers. 

Here's  an  example,  If  we  tell  BASIC 
that  S$  begins  at  memory  location 
53760  (the  address  of  the  first  audio 
control  register)  then: 

S«(1)='A" 

ASC('A")  =  65 
has  the  same  effect  as  (but  much 


reads  it  back  again.  The  first  time  the 
program  does  this,  it  uses  GET,  PUT 
and  other  conventional  methods  of 
handling  data.  Then,  the  program 
does  the  same  thing  aU  over  again,  but 
this  time  it  uses  speedy  equivalenc- 
ing techniques. 

The  entries  in  Figure  1  are  the  run 
times  in  seconds  for  each  part  of  List- 
ing 2  when  M()  has  3,334  elements. 

Type  in  Listing  2,  EQUIV2.BAS, 
check  it  with  TYPO  11  and  SAVE  a 
copy  to  disk.  Be  sure  to  remove  the 
TYPO  II  program,  as  described  in  the 
TYPO  II  instructions,  before  you  RUN 
the  program. 


work  on  all  8-bit  Atari  computers  of  any  memory 
size,  with  disk  drive.  The  article  also  explains  how 
to  use  the  Turbo  BASIC  XL  language  for  even 
greater  speed. 


FIGURE  2 
Turbo  BASIC  XL 

Dl: 

(RAMdisk) 
D8: 

INITIALIZE  M(3334) 
INITL\LIZE  S$(20004) 

9.55 
0.27 

9.55 
0.27 

M(3334)                 -^   Dn:ARRAY.DAT 
S$(20004)               ^   Dn:STRING.DAT 

84.72 
52.97 

22.18 
0.40 

Dn:ARRAY.DAT     -»   M(3334) 
Dn:STRING.DAT   ^   S$(20004) 

50.70 
19.32 

21.88 
0.42 

all  four  voices  using  BASIC'S  SOUND 
command. 

This  part  of  the  program  can  be 
slightly  accelerated  by  POKEing  the 
sound  data  directly  into  the  audio 
control  registers  (memory  locations 
53760-53768). 

The  second  part  of  the  program 
uses  an  equivalenced  string  to  fill  all 
audio  control  registers  at  once.  First, 
the  program  DIMensions  a  string 
called  S$.  Then  it  alters  the  variable 


quicker  than): 

POKE  53760,65 

We've  just  equivalenced  a  string 
variable  to  a  specified  block  of 
memory — the  audio  control  registers. 
Listing  2  shows  you  how  to  equiva- 
lence a  string  to  a  numeric  array  to 
speed  up  data  handling. 

DATA  HANDLING 

Listing  2  creates  a  sample  floating- 
point array,  M( ),  writes  it  to  disk  and 


When  RUN,  the  program  asks  you 
to  choose  the  size  of  the  sample 
floating-point  array.  As  written,  the 
program  cannot  handle  such  arrays 
DIMensioned  above  4,000. 

Next,  the  program  equivalences  ar- 
ray M( )  to  a  string,  S$ ,  and  begins  fill- 
ing M( )  with  numbers.  Since  M( )  and 
S$  are  equivalenced,  every  value 
placed  in  M( )  also  appears  in  S$,  but 
in  a  slightly  different  form. 

Since  BASIC  stores  numbers  as  six- 
byte  binary  coded  decimals  (BCD), 
your  equivalenced  string  requires  6 
characters  for  each  floating-point 
number.  For  example,  the  number 
41.4243444  is  internally  represented 
as  @ABCDE. 

So  if  you  wanted  to  equivalence  an 
array  containing  3,334  numbers, 
you'd  need  a  string  DIMensioned  to 
(6x3,334)  or  20,004. 

TIMING 

The  program  also  times  itself  The 
first  column  of  entries  in  Figure  1  is 
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for  my  own  disk  drive — a  single  den- 
sity Indus  GT.  Tiie  times  you  get  may 
be  different  tf  you  use  a  different 
brand  of  disk  drive.  The  second 
column  in  Figure  1  contains  run  times 
for  a  RAMdisk. 

The  first  entry  in  Figure  1  is  the 
number  of  seconds  it  takes  to  write 
3,334  elements  (20,004  bytes)  from 
M()  to  a  disk  file  named  Dl: AR- 
RAY. DAT.  If  the  same  data  gets  writ- 
ten as  a  20,004-byte  string  to  a  disk 
file  named  D1:STRING.DAT,  the  run 
time  decreases  from  99. 03  seconds  to 
83.95  seconds.  If  you  write  the  data 
to  RAMdisk  files,  writing  to  the  string 
is  almost  ten  times  faster  than  writ- 
ing to  the  floating-point  array,  53.58 
seconds  and  5.73  seconds,  respec- 
tively. 

The  increase  in  the  speed  of  in- 
itializing the  arrays  is  even  more  im- 
pressive. Ordinarily  you'd  initialize  a 


back  into  S$.  So  we  resort  to  a  little 
machine  language. 

The  subroutine  beginning  at  line 
3000  in  Listing  2  uses  your  Atari's 
built-in  CIO  (Central  Input/Output) 
routines  to  read  a  disk  file  into  a  string 
at  machine  language  speed. 

In  this  routine,  AD  is  address  of  the 
string.  It  is  broken  into  low-  and  high- 
bytes  in  line  3000.  The  expression 
POKE  I  +  8,255:POKE  1-1-9,255  tells 
CIO  to  read  as  many  bytes  as  it  can, 
up  to  65,535  bytes,  or  until  it  reaches 
the  end  of  the  fUe.  Line  3030  contains 
the  USR  function  which  starts  the  CIO 
routines.  When  CIO  is  through,  line 
3040  calculates  the  number  of  bytes 
which  have  been  read  and  stores  it  in 
N. 

To  learn  more  about  CIO,  read  the 
CIOV  section  (location  58454)  of  Ian 
Chadwick's  "Mapping  The  Atari" 
($16.95,  Compute!  Publications). 


quivalencing  avoids 
time-consuming  floating- 
point conversions. 


floating-point  array  with  a  FOR-NEXT 
loop,  such  as  in  line  540  of  Listing  2. 

You  can  do  the  same  thing  with  an 
equivalenced  string  in  two  quick 
steps.  Assign  the  first  element  the 
regular  way,  M(0)  =  -1.  Since  S$  is 
equivalenced  to  M( ),  this  assignment 
will  also  change  the  first  six  bytes  of 
SS. 

Now  you  can  copy  the  first  six  bytes 
throughout  the  rest  of  the  string  with 
the  statement: 

S$(7)  =  S8(1) 

This  statement  will  change  every 
value  in  M()  to  -1.  The  equivalenced 
string  method  is  120  times  faster  than 
the  FOR-NEXT  loop  for  an  array  of 
3,334  elements. 

The  bad  news  is  that  BASIC  lacks 
a  speedy  way  to  read  DLSTRING.DAT 


TURBO  BASIC  XL 

If  you  own  an  XL  or  XE,  Turbo 
BASIC  XL  also  has  the  fast  I/O  com- 
mands you  need. 

Turbo  BASIC  XL  is  by  Frank  Oz- 
trowski,  of  West  Germany,  author  of 
Michtron's  GFA  BASIC  for  the  Atari  ST. 
Turbo  is  a  public  domain  BASIC  inter- 
preter and  compiler  that  offers  a 
more  powerful  programming  envi- 
ronment. It's  available  on  Com- 
puServe's 8-bit  Atari  Forum  and  from 
many  Atari  users  groups. 

Turbo  BASIC  supports  structured 
programming,  provides  new  I/O,  edit- 
ing, and  DOS  functions,  and  RUNS 
several  times  faster  than  Atari  BASIC. 
Unfortunately,  it  does  not  work  on 
Atari  400  or  800  computers. 


Turbo  BASIC  XL  has  %GET  and 
%PUT  commands  to  read  and  write 
numeric  data  to  and  from  disk,  and 
BGET  and  BPUT  to  read  and  write 
string  data  to  and  from  disk.  Substitut- 
ing these  commands  for  the  Atari  BA- 
SIC commands  in  Listing  2  will  give 
you  the  run  times  listed  in  Figure  2. 
The  Turbo  BASIC  commands  and 
their  Atari  BASIC  equivalents  are  in 
lines  630-640,  730-740,  1070-1080 
and  1200-1210. 

Turbo  BASIC  is  somewhat  faster 
than  Atari  BASIC  for  the  floating-point 
routines.  Reading  into  S$  from  RAM- 
disk  or  writing  S$  to  RAMdisk  takes 
only  four  tenths  of  a  second  in  Turbo 
BASIC!  If  the  string  is  a  little  smaller, 
such  as  8,138  bytes  (the  size  of  a 
GRAPHICS  8  screen  &  display  list)  the 
read  and  write  times  are  less  than  two 
tenths  of  a  second.  Reading  or  writ- 
ing a  GRAPHICS  0  screen  (992  bytes) 
to  or  from  RAMdisk  takes  one  tenth 
of  a  second. 

The  net  effect  is  that  programs  us- 
ing Turbo  BASIC,  RAMdisks  and 
equivalencing  will  transfer  data  130 
to  150  times  faster  than  programs 
which  don't  use  these  techniques.  If 
you  add  the  extra  time  that  a  physical 
disk  drive  takes,  the  increase  in  speed 
is  two  to  five  times,  still  a  significant 
increase. 

HOW  IT  WORKS 

Let's  take  a  closer  look  at  the 
way  BASIC  handles  variables.  In 
Atari  BASIC  (and  all  compatible 
basics)  variables  are  stored  in  tables. 
The  three  tables  of  interest  here  are 
the  variable  name  table,  the  variable 
value  table,  and  the  string  and  array 
table. 

VARIABLE  NAME  TABLE 

The  variable  name  table  is  merely 
a  list  of  all  of  the  names  of  the  varia- 
bles used  in  your  program.  Instead  of 
putting  a  space  between  the  variable 
names  (and  wasting  a  byte),  the  last 
character  in  each  name  is  stored  as  an 
inverse  character.  If  our  program  con- 
tains  the   variables —   TOTAL,   AR- 
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RAY(5),  and  NAMES(IO)— the  variable 
name  table  would  look  like  this: 

TOTOniAKRflYBNnnES 

Atari  BASIC  recognizes  three  classes 
of  variables — scalars,  floating-point 
arrays  and  strings.  If  the  last  charac- 
ter in  the  variable  name  is  an  inverse 
letter  or  number,  as  in  TOTAL,  the 
variable  is  a  simple  floating-point 
number  called  a  scalar 

If  the  last  character  is  an  inverse 
open  parenthesis,  as  in  ARRAY,  the 
variable  is  a  floating-point  array.  And 
if  the  last  character  is  an  inverse  dol- 
lar sign,  as  in  NAMES,  it  is  a  string 
variable. 

The  address  of  the  beginning  of  the 
variable  name  table  is  stored  in  mem- 
ory locations  130  (low  byte)  and  131 
(high  byte).  Calculate  the  starting  ad- 
dress of  this  table  with  the  equation: 

PEEK(130)  -I-  PEEK(131)  *  256 


floating-point  arrays,  and  a  128  or  a 
129  represent  a  string  variable. 

The  second  byte  of  each  block  is 
the  variable  number  (0 — 127)  as  as- 
signed by  BASIC. 

If  the  variable  is  a  scalar,  the  remain- 
ing six  bytes  contain  its  binary  coded 
decimal  (BCD)  value,  as  described 
above. 

If  the  variable  is  a  floating-point 
array  or  a  string,  the  third  and  fourth 
bytes  contain  the  location  of  the  array 
(or  string).  This  location  is  not  a 
memory  address,  but  its  offset  into  a 
table  containing  all  the  strings  and 
arrays  used  in  your  program.  This  ta- 
ble, called  the  string  and  array  table, 
is  discussed  later  in  this  article. 

If  the  variable  is  a  floating-point 
array,  the  fifth  and  sixth  bytes  are 
equal  to  one  plus  the  first  DIMension 
size,  and  bytes  seven  and  eight  are 
equal  to  one  plus  the  second  DI- 


loating-point  calculations 
are  slow  compared  to  string 
operations. 


The  ending  address  of  the  variable 
name  table  is  one  less  than  the  num- 
ber stored  in  memory  locations  132 
and  133. 

VARIABLE  VALUE  TABLE 

The  variable  value  table  contains 
type  and  size  information  about  each 
variable.  The  starting  address  of  the 
variable  value  table  is  kept  in  mem- 
ory locations  134  and  135. 

Each  variable  in  the  variable  name 
table  has  a  corresponding  eight-byte 
block  of  information  in  the  variable 
value  table.  These  blocks  are  kept  in 
the  same  order  as  the  names  in  the 
variable  name  table. 

The  first  byte  in  each  block 
represents  the  variable  type.  A  0 
represents  a  scalar,  64  and  65  denote 


Mension  size. 

For  example,  the  statement  DIM 
ARRAY(7,13)  would  set  bytes  five  and 
six  equal  to  7  + 1,  or  8,  and  bytes  seven 
and  eight  would  equal  13  +  1,  or  14. 
(If  ARRAY  was  a  one-dimensional 
array,  bytes  7  and  8  would  equal  0  -i- 1, 
or  1.) 

If  the  variable  is  a  string,  the  fifth 
and  sixth  bytes  contain  the  current 
length  of  the  string.  The  seventh  and 
eighth  bytes  contain  the  DIMensioned 
size  of  the  string. 

For  example,  when  BASIC 
processes  the  statement  DIM 
NAME8(10),  it  sets  bytes  five  and  six 
to  zero  because  the  LENgth  of  NAMES 
is  zero.  (Bytes  five  and  six  remain  at 
zero  until  your  program  puts  some- 
thing into  NAMES.) 


Bytes  seven  and  eight  would  equal 
ten,  the  DIMensioned  size  of  the 
string. 

STRING  &  ARRAY  TABLE 

The  string  and  array  table  contains 
the  contents  of  all  the  strings  and 
arrays  used  in  your  program.  The 
starting  address  of  this  table  is  kept  in 
memory  locations  140  and  I4l. 

Each  time  your  program  introduces 
a  new  string  or  array,  its  contents  are 
appended  to  the  string  and  array  ta- 
ble. BASIC  keeps  track  of  these  varia- 
bles by  noting  their  offset  from  the  be- 
ginning of  the  string  and  array  table, 
and  storing  this  number  in  the  vari- 
able value  table. 

In  other  words,  the  first  array  is  lo- 
cated at  the  beginning  of  the  string 
and  array  table  and  has  an  offset  of 
zero.  The  second  array's  offset  would 
be  equal  to  the  size  of  the  first  array. 

HOW  TO  EQUIVALENCE 

These  variable  tables  let  BASIC  give 
each  variable  a  unique  set  of  data  that 
points  to  a  unique  area  of  RAM.  When 
you  equivalence  two  variables,  you 
manipulate  these  tables  so  that  the 
two  variables  share  the  same  area  of 
RAM.  Scalars,  arrays,  and  strings  may 
be  equivalenced  in  any  combination, 
as  long  as  the  equivalenced  memory 
locations  do  not  overlap  other 
variables. 

Once  you  understand  how  the  vari- 
able tables  work,  equivalencing  is 
merely  a  matter  of  altering  the  eight- 
byte  blocks  in  the  variable  value  ta- 
ble. Just  copy  the  array's  offset  and 
dimension  information  into  the  off- 
set and  dimension  information  of  the 
string.  Here's  an  example: 

NEW 

DIM  A$(1),B(2) 

After  BASIC  processes  these  state- 
ments, the  variable  name  table  will 
look  like  this: 

And  the  variable  value  table  will 
look  like  this; 

r!WW»5t¥lfflLfclfi 
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Which  is  equivalent  to: 
129  0  0  0  0  0  10 
(entry  for  A$) 

65  1  1  0     3  0     10 

(entry  for  B()) 

Let's  interpret  each  eight-byte  block. 
In  the  first  block,  the  first  byte,  a  129, 
tells  us  that  the  variable  is  a  string.  The 
second  byte,  a  0,  means  that  it  is  vari- 
able number  0— the  first  variable  in 
your  program.  It  also  means  it's  the 
first  entry  in  the  variable  name  table, 
AS. 

Bytes  three  and  four,  also  zeros, 
mean  that  its  offset  from  the  begin- 
ning of  the  string  and  array  table  is 
zero. 

Since  no  elements  have  been  en- 
tered, A%  has  a  LENgth  of  0  (bytes 
5  and  6  =  0),  but  has  been  DI- 
Mensioned  to  1  (byte  7=1  and  byte 
8  =  0). 


eight  show  the  DIMensioned  size  of 
the  second  index  -i-   1. 

In  this  example,  the  DIMensioned 
size  of  the  first  index  is  2.  Byte  five 
contains  (2  + 1),  or  3,  and  byte  six  con- 
tains zero. 

Since  there  is  no  second  index,  its 
value  is  0.  Byte  seven  contains  (0  -i- 1), 
or  1,  and  byte  eight  contains  zero. 

To  equivalence  A$  and  B( ),  copy 
bytes  three  through  eight  of  block  two 
into  bytes  three  through  eight  of  block 
one.  The  variable  value  table  will  now 
look  like  this: 

129  0  1  0  18  0  18  0 

(entry  for  A$) 

65  1  1  0    3  0     10 

(entiy  for  B()) 

Block  two  has  not  changed,  but 
block  one  now  points  to  the  same 
memory  locations  as  block  two.  Both 
now  have  the  same  offset  into  the 


he  increase  in  the 

speed  of  initializing  arrays 

is  impressive. 


The  second  block  contains  infor- 
mation about  the  second  variable. 
Here,  the  first  byte,  a  65,  tells  us  that 
the  variable  is  a  numeric  array.  The 
second  byte,  a  1,  means  that  it  is  vari- 
able number  1— the  second  variable 
in  your  program.  It  also  means  it's  the 
second  entry  in  the  variable  name  ta- 
ble, B(). 

Bytes  three  and  four,  a  one  and  a 
zero,  mean  that  the  B( )  offset  from  the 
beginning  of  the  string  and  array  ta- 
ble is  one — the  maximum  size  of  the 
previous  variable  AS. 

Bytes  five  through  eight  contain  the 
variable's  DIMensioned  size.  BASIC  ar- 
rays may  have  up  to  two  indexes,  and 
both  sizes  are  stored  here.  Bytes  five 
and  six  show  the  DIMensioned  size 
of  the  first  index  -i-  1.  Bytes  seven  and 


string  and  array  table. 

You'll  notice  that  bytes  five  through 
eight  were  not  copied  as  you'd  have 
expected.  These  bytes,  describing  the 
DIMensioned  size  of  the  array,  ap- 
pears to  have  jumped  from  3  to  18! 

Nothing's  really  changed,  though. 
As  an  array,  B( )  may  hold  up  to  three 
floating  point  numbers.  Since  your 
Atari  needs  six  bytes  to  store  a  single 
floating  point  number,  it  needs  18 
bytes  to  store  three  of  them.  Thus,  if 
A$  and  B( )  are  to  use  the  same  piece 
of  RAM,  A$  must  be  18  bytes  long. 

Since  AS  and  B()  now  occupy  the 
same  18  memory  locations,  any 
change  in  AS  will  affect  B( )  and  vice 
versa. 

Substring         Array  Element 

AS(  1,  6)  < >  B(0) 


7,12)  < >  B(l) 

AS(13,18)  < >  B(2) 

AS  was  originally  DIMensioned  for 
one  element  for  the  sake  of  simplic- 
ity If  AS  had  a  DIMension  of  600,  its 
new  offset  would  be  600  after 
equivalencing. 

Bytes  0  to  599  of  the  string  and  ar- 
ray table  would  be  inaccessible 
memory. 

Inaccessible     AS  and  B( ) 
Memory        stored  here 

Bytes        0  to  599        600  to  617 

If  you  don't  like  wasting  this  much 
memory,  you  can  alter  the  variable 
value  table  so  that  the  offset  and 
DIMensions  of  both  AS  and  B( )  in- 
clude all  618  bytes. 

AS  would  then  have  a  DIMension 
of  600  +  3  *  6,  or  618.  B()  would 
have  a  DIMension  of  600/6  -i-  3,  or 
103.  Wasting  memory  will  usually  not 
affect  your  program.  However,  you 
should  be  aware  of  some  potential 
problems  with  equivalenced 
variables. 

POTENTIAL  PROBLEMS 

Losing  your  place.  This  happens 
when  you  incorrectly  equivalence 
your  variables.  This  can  happen  when 
creating  the  equivalence,  or  whenever 
the  program  processes  a  misplaced 
CLR  statement. 

A  CLR  statement  zeroes  all  of  the 
variables  and  sets  the  offsets,  string 
lengths,  and  array  dimensions  to  zero 
in  the  variable  value  table.  The  equiva- 
lence between  variables  is  destroyed. 

Wlien  you  re-dimension  the  strings 
and  arrays,  BASIC  once  more  assigns 
a  unique  offset  for  each.  Each  variable 
will  control  its  own  part  of  memory 
again. 

Finally,  remember  that  the  order  of 
your  variables  in  the  variable  tables  is 
subject  to  change  whenever  you  LIST 
your  program  to  disk.  The 
SAVE/LOAD  commands  preserve  your 
program's  original  variable  name  ta- 
ble. The  LIST/ENTER  commands  do 
not.  When  a  LISTed  program  is  EN- 
TERed,  BASIC  builds  a  new  variable 
continued  on  page  56 
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Error 
Trapping 

in  Atari  BASIC 

Crashes  that  you  can  prevent.  By  Heidi  Brumbaugh,  START  Programs  Editor 


Of  the  hundreds  of  program  submis- 
sions Antic  receives  each  year,  many 
which  are  otherwise  excellent  must 
be  rejected  because  they  lack  error 
trapping.  No  matter  how  thoroughly 
you  test  your  program,  errors  can  still 
crash  it  during  operation  simply  be- 
cause the  user  isn't  as  familiar  with  it 
as  you  are.  This  article  will  show  you 
some  error-trapping  routines  de- 
signed to  make  everybody's  life  easier. 

Before  sending  your  program  out 
into  the  world,  ask  yourself,  "Will 
something  as  simple  as  a  user's  mis- 
interpretation of  a  prompt  make  the 
listing  crash? 

You've  already  done  the  hard 
part — making  your  program  under- 
standable to  the  machine.  Now  you 
just  need  to  fine-tune  it  for  sensitiv- 
ity to  any  off-the-wall  keystroke  com- 
binations the  user  tries. 

SET  A  TRAP 

To  make  sure  our  program — not  the 
operating  system — takes  control 
when  an  error  occurs,  we  must  first 
tell  the  computer,  "If  there's  an  error, 
let  the  program  handle  it."  Predict- 
ably, this  is  called  error  trapping.  The 
BASIC  syntax  we  need  to  use  is:  TRAP 

FEBRUARY  1989 


linenum. 

Here  linenum  is  the  program  line 
for  the  computer  to  go  to  if  an  error 
occurs.  At  linenum  we  analyze  the  sit- 
uation and  act  accordingly.  Put  this 
statement  at  the  beginning  of  your 
program  to  enable  error  trapping  be- 
fore any  problems  crop  up. 

The  trap  must  be  reset  each  time  an 
error  occurs.  Otherwise  the  operating 
system  resumes  control  the  next  time 
there's  an  error  A  good  place  to  reset 
the  trap  is  at  the  first  line  of  your  error- 
handling  routine — but  make  sure  it 
doesn't  have  any  bugs.  If  you  always 
put  a  TRAP  statement  there,  yOu 
won't  have  to  worry  about  the  oper- 
ating system  taking  over  when  you 
don't  want  it  to. 


%u  don't  need  to  have  an  error  to 
declare  a  new  TRAP  statement.  When 
the  computer  encounters  a  TRAP 
statement,  it  remembers  only  the  new 
line  number  and  goes  there  if  an  er- 
ror occurs.  Thus  we  can  have  one  cen- 
tral location  for  handling  errors.  Or 
we  can  reset  the  trap  and  go  to  differ- 
ent error-handling  routines  depend- 
ing on  where  the  error  occurs.  We'll 
use  the  second  method  in  these  ex- 
amples, but  you'll  learn  how  to  do  it 
either  way. 

Of  course,  you  won't  always  be  able 
to  deal  effectively  with  an  error  Un- 
foreseen circumstances  do  tend  to 
arise.  The  BASIC  equivalent  to  throw- 
ing your  hands  up  and  telling  the 
operating  system,  "I  don't  know  what 
to  do— you  handle  it"  is  to  set  a  TRAP 
statement  to  an  illegal  line  number 
(BASIC  allows  line  numbers  between 
0  and  32767.)  Most  programmers  use 
40000.  This  shuts  off  any  previous 
TRAP  statements.  = 

Let's  experiment,  using  the  exam-  2 
pie  of  a  user  trying  to  write  to  a  write-  f 
protected  disk.  We  can  handle  this  ^, 
easily  by  asking  the  user  to  remove  the  | 
write-protect  tab  and  try  again.         | 

100  TRAP  30000  I 
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110  OPEN  #1,8,0,"D:DUCKS.DAT" 

120  ?  #l,"Donald" 

130  ?  #l,"The,  Howard" 

140  ?  #l,"Daffy" 

145  ?  #l,"Sitting" 

150  CLOSE  #1 

160  ?  "Names  entered." 

170  END 

30000  TRAP  30000;REM  Reset  trap 

30010  CLOSE  #1:REM  Close 
channel 

30020  ?  :?  "Disk  is  write-pro- 
tected.":? 

30030  ?  "Please  remove  write-pro- 
tect  tab  and" 

30040  ?  "put  disk  back  in  drive":? 

30050  ?  "Press  any  key  to  con- 
tinue.":POKE  764,255 

30060  IF  PEEK(764)=255  THEN 
30060:REM  Wait  for  keypress 

30070  POKE  764,255 :REM  Clear 
last  key  pressed 

30080  GOTO  110:REM  Try  again 

This  program  works  fine  if  it  en- 
counters the  error  we've  anticipated. 
However,  the  key  to  error  trapping  is 
to  consider  every  possible  error  Here, 
the  disk  drive  may  be  empty  or  dis- 
connected, or  the  disk  may  be  full  or 
even  have  a  bad  sector 

The  computer  stores  the  number  of 
the  last  error  encountered  in  memory 
location  195.  We  can  use  this  infor- 
mation to  modify  our  error-trapping 
routine. 

100  TRAP  30000 

110  OPEN  #1,8,0,"D:DUCKS.DAT" 

120  ?  #l,"Donaid" 

130  ?  #l,"The,  Howard" 

140  ?  #l,"Daffy" 

145  ?  #l,"Sitting" 

150  CLOSE  #1 

160  ?  "Names  entered." 

170  END 

30000  TRAP  30000:REM  Reset  trap 

30010  CLOSE  #1:?  :REM  Close 
channel 

30015  ERR  =  PEEK(195) 

30020  IF  ERR=144  THEN 
30150:REM  Disk  is  write-protected 

30030  IF  ERR  =  138  THEN  30200: 
REM  Device  does  not  respond 

30040  IF  ERR  =  139  OR  ERR  =  164 
THEN    30250:REM    Having    odd 


problems 

30050  IF  ERR  =  140  OR  ERR  =142 
OR  ERR  =  143  THEN  30300:REM  Disk 
may  be  damaged 

30060  IF  ERR  =  162  THEN  30350: 
REM  Disk  full 

30070  IF  ERR  =  167  THEN  30400: 
REM  File  locked 

30080  IF  ERR=169  THEN  30450: 
REM  Directory  full 

30090  ?  "Error  numljer  ";ERR;"  has 
occurred.":GOTO  30500:REM  Don't 
know  what's  happened 

30150  ?  "Disk  is  write-protected.":? 

30160  ?  "Please  remove  write-pro- 
tect  tab  and" 

30170  ?  "put  disk  back  in  drive." 

30180  GOTO  30500 

30200  ?  "Device  is  not 
responding." 

30210  ?  "Check  disk  drive  cables 
and  try  again." 


30220  GOTO  30500 

30250  ?  "I'm  having  trouble  open- 
ning  file." 

30260  ?  "1  suggest  you  check  disk 
drive" 

30270  ?  "and  try  again." 

30280  GOTO  30500 

30300  ?  "Your  diskette  may  be 
damaged." 

30310  ?  "I  suggest  you  try  again  or 
use" 

30320  ?  "another  disk." 

30330  GOTO  30500 

30350  ?  "Disk  is  full." 

30360  ?  "Please  insert  a  new  disk 
&  try  again." 

30370  GOTO  30500 

30400  ?  "You  already  have  a 
DUCKS.DAT  file" 

30410  ?  "and  it  is  locked.  Insert 


new  disk" 

30420  ?  "and  try  again  or  abort 
operation." 

30430  GOTO  30500 

30450  ?  "You  can  only  have  64  files 
on  a  disk." 

30460  ?  "Please  insert  new  disk  and 
try  again" 

30470  ?  "or  abort  operation." 

30500  ?  :?  "Press  R  to  retry;  A  to 
abort." 

30510  OPEN  #1,4,0,"K:":REM 
Open  keyboard  for  input 

30515  GET  #l,OPT:CLOSE  #1:REM 
Get  option  and  close  channel 

30520  IF  OPT=65  OR  OPT=97 
THEN  170:REM  Abort 

30530  IF  OPT=82  OR  OPT=ll4 
THEN  110:REM  Try  again 

30540  GOTO  30500:REM  Wait  for 
A  or  R 

Granted,  you  normally  wouldn't 
want  such  a  complicated  error- 
handling  routine  for  so  simple  a  pro- 
gram. But  it's  a  good  example  of  how 
error  trapping  can  make  a  program 
easy  for  anyone  to  run.  We  could  even 
make  the  routine  more  complicated 
by  having  the  program  offer  to  unlock 
a  locked  file  or  delete  some  files  if  the 
disk  or  directory  is  full.  The  main 
thing  is  to  be  familiar  with  these 
techniques. 

PREVENTIVE 
MAINTENANCE 

You  can  also  use  preventive  pro- 
gramming techniques  to  make  sure 
that  some  errors  never  occur  Con- 
sider this  short  program  to  divide  two 
numbers: 

100  ?  "Numerator";  INPUT  N 

110  ?  "Denominator";  INPUT  D 

120  ?  "The  answer  is:";  N/D 

130  GOTO  100 

This  program  will  crash  if  the  user 
enters  zero  as  a  denominator  While 
we  could  add  a  TRAP  statement  and 
a  complicated  error-handling  routine, 
it's  much  simpler  to  check  the  input 
before  the  division  ever  occurs: 

115  IF  D  =  0  THEN  PRINT  "Division 
by  zero  is  a  no-no.":GOTO  110 

Another  problem  happens  when 
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the  user  tries  to  put  too  many  num- 
bers into  an  array.  Rather  than  check 
for  an  array  dimension  error  we  can 
avoid  a  problem  by  counting  the 
numbers  as  they  are  entered. 

100  TRAP  40000:REM  Let  the  oper- 
ating system  handle  any  errors 

110  DIM  NUMS(100):I  =  0 

120  IF  1  =  100  THEN  ?  "I  can't  ac- 
cept any  more  numbers.": GOTO  200 

130  I  =  I-hl:?  "What  is  number";I; 
"(or  999  if  done)"; 

140  INPUT  N 

150  IF  N  =  999  THEN  ?  "Number? 
entered.": GOTO  200 

160  NUMS(I)  =  N 

170  GOTO  120 

200  END 

ADVANCED  TECHNIQUES 

Believe  it  or  not,  errors  aren't  al- 
ways bad.  Error  codes  often  show 
what's  going  on  inside  the  machine. 
After  we're  comfortable  with  error- 
handling  routines,  we  can  use  this  in- 
formation to  make  our  programs 
more  user-friendly 

Before  we  go  on,  we  need  to  know 
how  to  find  out  where  in  the  program 
an  error  has  occurred.  The  line  num- 
ber where  the  error  occurs  is  stored 
in  memory  locations  186  and  187.  To 
get  the  value,  we'll  create  a  variable 
ERL  and  assign  it  the  value  PEEK(187) 
*256-i-PEEK(186). 

Atari  BASIC  returns  a  type  mis- 
match error  if  it  expects  a  number  to 
be  entered,  but  instead  the  user  sim- 
ply presses  the  [RETURN]  key  This 
is  because  it  interprets  the  [RETURN] 
as  a  single  character  string.  Knowing 
this,  let's  set  up  a  loop  that  accepts 
numbers  until  a  [RETURN]  is  pressed. 

100  TRAP  30000:REM  Set  error 
trap 

110  DIM  NUMS(100):I  =  0 

120  IF  1  =  100  THEN  ?  "I  can't  ac- 
cept any  more  numbers.":GOTO  200 

130  1  =  1-1-1:?  "What  is  number";I; 
"(or  <CR>  if  done)"; 

140  INPUT  N 

150  NUMS(I)  =  N:GOTO  120 

160  ?  "Numbers  entered." 

200  END 


30000  TRAP  40000:REM  Trap 
turned  off 

30010  ERR  =  PEEK(195):ERL  = 
PEEK(186)  +  PEEK(187)  *  256 

30020  IF  ERR  =  8  AND  ERL  =  140 
THEN  160 

30030  ?  "Error";ERR;  "at  line" 
;ERL;  "has  occurred.":GOTO 
200:REM  Give  up 

Notice  that  we  set  a  TRAP  40000 
at  the  beginning  of  the  error-handling 
routine.  This  is  redundant  because  the 
error  which  caused  you  to  hit  that  line 
would  disable  the  error  trapping  any- 
way. However,  it  makes  this  program 
much  easier  to  read  and  modify. 

Another  application  is  to  use  error 
trapping  to  see  when  a  list  of  DATA 
statements  is  exhausted.  The  pro- 
grammer usually  knows  how  much 
data  to  expect,  so  you  can  put  your 
READ  statement  in  a  loop  or  check 


each  item  READ  against  a  number  like 
999  or  a  string  such  as  "END"  that  sig- 
nifies the  end  of  the  data.  However, 
you  might  want  to  let  the  user  cus- 
tomize the  list,  in  which  case  having 
to  remember  how  to  end  it  is  clumsy. 

An  example  might  be  a  list  of  names 
which  can  be  modified  depending  on 
who's  using  the  program.  In  the  fol- 
lowing program  segment,  imagine 
we're  READing  the  names  of  people 
who  are  sharing  pizza.  Later,  we'll 
print  a  list  of  who  owes  how  much 
money.  To  do  this,  read  the  names 
into  a  string  array  until  error  6 — Data 
List  Exhausted — occurs. 

100  TRAP  30000 

110  DIM  XS(10),EATERS(200):1  =  0: 
REM  Allow  for  20  names  of  length  10 
each. 


115  EATERS  =  "  ":EATERS(200)  = 
EATERS  :EATERS(2)  =  EATERS  :REM 
Set  array  to  spaces 

120  IF  I  =  20  THEN  ?  "Sorry  list  ig- 
nored after";X$  :GOTO  200:REM  Too 
many  names 

130  READ  XS 

135  EATER$(I*10-Hl,I*10-Hl0)  = 
X$ 

140  I  =  I  +  l:GOTO  120 

160  ?  "The  names  are  in  the  array." 

200  REM  Continue  with  program. 

300  END 

20000  DATA  CharUe,Gregg,Nat, 
Carolyn, Marta 

20010  DATA  AndyHeidi,Tom 

30000  TRAP  40000 

30010ERR  =  PEEK(195):ERL  = 
PEEK(187)  *  256  +  PEEK(186) 

30030  IF  ERR  =  6  AND  ERL  =  130 
THEN  160 

30040  ?  "Error  ";ERR;"  at  line 
";ERL;"  has  occurred.": GOTO  300: 
REM  Give  up 

The  number  of  ways  to  incorporate 
error  trapping  is  virtually  unlimited. 
If  you're  getting  data  from  a  disk,  you 
can  use  the  above  idea  to  read  from 
the  file  until  you  get  an  error  136 — 
End  of  File.  If  your  program  is  going 
to  write  a  file,  a  quick  way  to  tell  if 
the  file  already  exists  is  to  try  to  read 
it  first.  If  it's  not  there  you'll  get  error 
number  170 — File  Not  Found.  Using 
error  trapping  to  check  for  this  is 
easy — and  may  save  someone  from 
overwriting  an  important  file. 

Like  any  aspect  of  programming,  a 
good  error-handling  routine  should 
be  "invisible"  to  the  user  If  you  have 
an  idea  of  which  kinds  of  errors  to  ex- 
pect, you  can  troubleshoot  potential 
problems  without  the  user  ever 
knowing  something's  gone  wrong. 
On  the  other  hand,  if  your  error- 
handling  routine  can't  figure  out  what 
to  do,  you  can  at  least  print  out  error 
messages  in  plain  English  and  give  the 
user  a  chance  to  recover  from  the 
problem  without  a  crash.  Whatever 
the  situation,  error  trapping  is  an  ef- 
fective way  to  make  your  programs 
polished,  professional,  and  easier  to 
run.  A 
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Real-World 
Interface 


AN  ATARI  GROWS  ORCHIDS  IN  TEXAS.  BY  JOHN  LITTLE 

Real-World  Interface  is  a  hardware- software  project  that 
^  can  control  a  'wide  variety  of  electronic  equipment 
with  your  Atari.  This  BASIC  program  works  on  all  8-bit 
Atari  computers  of  any  memory  size,  T^^ith  disk  or  cassette. 
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The  idea  of  using  a  computer  to 
control  real  objects  always  fascinated 
me.  Last  summer  I  decided  that  some- 
thing had  to  be  done  about  the  prob- 
lem of  low  humidity  in  my  orchid 
greenhouse  and  my  Atari  turned  out 
to  be  part  of  the  solution. 

If  you  don't  have  a  greenhouse, 
stick  around  anyway.  The  first  link  be- 
tween my  Atari  and  my  greenhouse 
is  a  simple  relay  that  can  be  used  for 
many  different  applications.  And  pro- 
gramming the  Atari  to  operate  it  is 
really  easy.  Also,  the  real-time  clock 
routine  that  I  use  for  timing  relay 
operations  can  easily  be  incorporated 
into  other  programs. 

The  conventional  approach  to  my 
low-humidity  problem  would  have 
been  to  use  a  humidistat  to  control  a 
solenoid  valve  (operating  on  house 
current)  to  control  water  flow  to  mis- 
ters or  foggers.  But  there  are  other 
considerations  here  in  Austin,  Texas 
where  high  heat  can  be  a  serious 
problem.  I  had  been  searching  for 
some  type  of  emergency  system  to 
cool  the  plants  in  case  of  power  fail- 
ure, and  the  best  answer  seemed  to 
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be  drenching  them  in  fog. 

The  problem  was  how  to  generate 
the  fog  with  no  electricity.  At  the 
same  time  I  decided  to  install  misters 
for  humidity,  I  came  across  an  ingen- 
ious battery-operated  water  valve.  I 
knew  immediately  that  I  had  found 
not  only  a  means  of  solving  my  hu- 
midity problems,  but  also  the  key  to 
making  the  elusive  emergency  system 
work. 

This  valve  comes  with  a  program- 
mable electronic  module  to  control 
when  the  water  will  be  on.  It  was  sim- 
ple to  remove  the  module — which  is, 
of  course,  just  an  elementary 
computer — and  connect  the  valve  to 
a  much  more  complex  computer,  my 
Atari.  Originally,  the  valve  could  be 
set  for  a  maximum  of  four  time 
periods  per  day,  with  the  shortest 
time  period  being  one  minute.  But 
with  the  Atari,  I  can  turn  the  misters 
on  for  just  seconds,  and  I  can  do  it 
as  many  times  a  day  as  I  want. 

Just  as  important,  with  this  setup 
I  can  be  sure  the  misters  don't  come 
on  when  they  shouldn't.  Orchids 
should  not  be  wet  when  the  temper- 
ature is  too  low,  and  they  should  al- 
ways be  dry  by  nightfall.  A  thermostat 
placed  in  the  circuit  between  the  valve 
and  the  Atari  makes  sure  that  the  mis- 
ters don't  come  on  if  the  temperature 
is  too  low.  And  this  program  lets  me 
choose  the  earliest  and  latest  times  for 
the  misters  to  come  on. 

RELAY  OPERATIONS 

Finally,  the  circuit  and  program  are 
set  up  so  that  instead  of  operating  the 
relay  to  turn  on  the  misters,  as  you'd 
expect,  the  relay  shuts  off  the  misters 
when  it  operates  and  turns  them  on 
when  it  releases.  If  the  power  faOs  and 
the  Atari  goes  down,  the  relay  releases 
and  the  misters  stay  on,  providing 
some  relief  from  the  heat  until  power 
is  restored.  Then,  because  of  the  in- 
ternal design  of  the  joystick  ports,  the 
relay  will  operate  automatically  and 
shut  off  the  water  without  needing  a 
program  to  tell  it  to.  And  the  green- 
house fans  can  start  drying  things  off. 


The  first  step  in  controlling  the  re- 
lay is  to  configure  the  joystick  port — 
the  two  jacks  that  the  joysticks  plug 
into.  PORT\  refers  to  Jacks  1  and  2. 
On  the  early  Atari  400  and  800  com- 
puters, PORTB  refers  to  Jacks  3  and  4. 

These  ports  use  memory-mapped 
I/O  (input/output),  which  means  each 
port  corresponds  to  a  one-byte  mem- 
ory address.  Pins  one  through  four  in 
jack  1  correspond  to  bits  zero  through 
three  at  address  54016  (PORTA),  and 
the  same  four  pins  in  jack  2  corre- 
spond to  bits  four  through  seven  at 
that  address.  By  manipulating  the  data 
at  that  address  with  POKEs  in  BASIC, 
we  can  control  whether  each  one  of 
those  pins  is  used  for  input  or  output, 
and  what  data  we  send. 

Now  we  configure  for  input  or  out- 
put. Address  54018  (PACTL)  is  the 
PORTA  controller.  When  bit  2  of 
PACTL  is  set  to  0,  any  value  POKEd 
into  PORTA  determines  whether  the 
individual  pins  of  the  port  will  be  out- 
put or  input  pins.  When  bit  2  is  set 
to  1,  any  value  POKEd  into  PORTA  is 
considered  data  for  output. 

Line  340  of  the  Real-World  Interface 
program  shows  how  bit  2  is  set  to 
zero.  Its  normal  state  is  1.  To  set  it  to 
0,  we  subtract  4  (the  decimal  value 
represented  by  bit  2)  from  the  origi- 
nal contents  of  PACTL,  after  saving  the 
original  contents  in  ORIG. 

POKE  PORTA  with  255  to  set  all 
eight  I/O  pins  for  output.  Finally 
POKE  ORIG  back  into  PACTL  so  that 
PORTA  can  send  whatever  data  is 
POKEd  into  it. 

Output  from  the  joystick  ports  is  bi- 
nary, which  means  it  can  be  in  one 
of  only  two  possible  states:  zero  and 
one  (also  called  low  and  high).  Your 
Atari  interprets  these  states  as  ground 
and  -I-  5-volts.  Each  pin  that  has  a  0 
in  its  corresponding  bit  in  PORTA  will 
send  a  zero  or  ground.  Each  pin  with 
a  1  in  its  corresponding  bit  will  out- 
put -f-  5  volts.  The  -t-  5  volts  is  how  we 
operate  the  relay! 

When  you  turn  on  your  Atari,  each 
pin  has  +  5  volts.  If  your  project  is 
plugged  into  the  jack  when  you  turn 


your  Atari  on,  the  relay  will  operate. 
Then,  when  you  configure  the  port 
for  output,  the  pins  will  automatically 
drop  to  ground  and  your  relay  will  re- 
lease until  you  POKE  the  appropriate 
value  into  PORTA.  This  must  be  kept 
in  mind  when  planning  how  your 
projea  will  operate.  In  my  case,  I  must 
remember  to  shut  off  the  water  valve 
in  my  greenhouse  or  the  misters  will 
come  on  when  I  start  the  program. 

THE  CIRCUIT 

Before  we  get  any  further  into  the 
circuit,  there's  something  you  need  to 
know  about  the  difference  between 
PORTA  and  PORTB.  In  the  800  and 
400  each  of  the  I/O  pins  in  PORTB 
has  a  little  "helper"  in  the  form  of  a 
+  5  volt  source  connected  through  a 
4.7K  resistor.  The  PORTA  pins  don't 
have  this  and  when  you  send  a  "high" 
through  a  PORTA  pin,  it  doesn't  have 
nearly  enough  power  to  make  this  cir- 
cuit work. 

So  I  added  a  "helper"  to  this  cir- 
cuit for  XL/XE  owners  who  have  only 
PORTA  available.  In  Figure  I,  resistor 
R3  is  drawn  with  a  dotted  line.  R3  is 
a  4.7K  resistor  that  supplies  +  5  volts 
to  the  output  line,  similar  to  what's 
built  into  PORTB.  You  can  operate  this 
circuit  from  PORTB  on  an  800  or  400 
if  you  omit  resistor  R3  and  make  the 
programming  changes  I'll  specify 
later 

WATER  VALVE 

As  it  comes  from  the  factory,  the 
RainMatic  Corp.  water  valve  has  a 
compartment  for  four  C  batteries,  and 
an  electronic  programming  module 
with  an  LCD  display  for  setting  up  the 
watering  schedule.  I  removed  the  pro- 
gramming module  to  connect  the 
Atari  in  its  place.  I  also  removed  the 
battery  compartment  and  substituted 
a  longer-life  6  volt  lantern  battery. 
This  left  two  sides  of  the  assembly 
open,  so  I  had  to  make  two  crude 
plastic  covers  and  caulk  them  well,  to 
keep  moisture,  dust,  and  insects  out 
of  the  valve  assembly.  The  wiring  sim- 
ply comes  out  through  the  caulk. 
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TO  THERMOSTAT  AND  V\I.VE. 
(SEE  FIGURE  2) 


Figure  1,  Attaching  the  relay  to  the  joystick  plug. 


Figure  2,  Attaching  the  relay  to  the  valve  and  the  thermostat. 


The  lead  from  the  negative  side  of 
the  battery  first  hits  the  thermostat, 
assuring  that  the  valve  will  stay  closed 
until  the  air  temperature  in  the  green- 
house is  high  enough. 
(see  figure  2) 

The  normally  closed  (NC)  pin  of 
the  relay  is  connected  to  the  black 
wire  of  the  valve  coil,  which  opens 
the  valve.  The  normally  open  (NO)  re- 
lay pin  is  connected  to  the  green  wire 
of  the  valve  coil,  which  closes  the 
valve. 

Normally  the  valve  is  open  and  the 
water  flows.  To  turn  the  water  off,  my 
program  POKEs  a  1  into  PORTA  and 
+  5  volts  is  sent  on  pin  1.  This  closes 
the  relay  and  voltage  from  the  lantern 
battery  is  applied  through  the  ther- 
mostat and  the  relay  to  the  green  lead 
on  the  valve,  which  closes. 

Voltage  continues  to  be  applied  to 
the  green  lead,  but  nothing  happens. 
There  is  no  battery  drain  because  a 
switch  inside  the  valve  opens  the  cir- 
cuit. When  it's  time  for  the  water  to 
come  on  again,  the  program  POKEs 
0  into  PORTA.  The  relay  releases, 
removing  voltage  from  the  green  lead 
and  applying  it  to  the  black  lead.  The 
valve  opens  and  the  water  flows 
again. 

A  lead  runs  from  the  COLD  side  of 
the  thermostat  to  the  green  wire  of 
the  valve.  This  insures  that  the  valve 
will  automatically  close  if  the  temper- 
ature drops  below  the  threshold  while 
the  water  is  on. 


PARTS  LIST 

PC  BOARD  Radio  Shack  #276-168 

Rl,  R2  IK  Ohm  Resistors 

R3  4.7K  Ohm  Resistor 

TRANSISTOR       2N2222 
RELAY  Radio  Shack  #275-216 

LED  from  fcidio  Shack 
9-conductor  ribbon  cable 
9-pin  female  connector 


THE  CLOCK 

The  heart  of  my  Atari  clock  is  a 
machine-language  program  running 
in  the  vertical-blank  interval.  It  is 
based  on  OS  location  RTCLOK  (18,  19, 
20),  but  only  reads  location  20,  which 
counts  jiffies  (1/60  seconds). 

Real-World  Interface  uses  locations 

19  and  18  to  store  the  count  of 
seconds  and  minutes,  respectively, 
obtained  by  watching  the  content  of 
location  20,  resetting  it  when  it 
reaches  60,  and  incrementing  the 
seconds  count  at  the  same  time. 

1  wanted  to  store  the  count  of  hours 
in  Page  0  so  it  could  be  accessed 
quickly.  I  chose  location  207,  which 
seems  to  be  unused  by  most  versions 
of  DOS  and  BASIC.  1  also  used  208 
and  209  for  counting  jiffies.  Location 

20  is  actually  updated  every 
1/59.92334  second— not  every  I/60 
of  a  second.  In  the  short  run,  this  isn't 
enough  of  an  error  to  cause  much 
trouble.  But  with  a  continuously  run- 
ning clock,  the  error  builds  up  sur- 
prisingly fast. 

So  I  built  a  correction  factor  into  my 


clock.  Since  the  Atari  timer  gains  a 
tiny  fraction  (0.07666)  of  a  jiff}^  each 
second,  I  calculated  how  many  jiffies 
it  was  gaining  in  a  minute  (4.5996). 
Dividing  this  number  into  the  num- 
ber of  seconds  in  a  minute  yielded 
13.044612  seconds,  which  told  me 
how  often  I  needed  to  increment  the 
jiffy  counter  to  keep  the  clock  as 
accurate  as  possible.  Since  13.044612 
seconds  equal  782.67672  jiffies,  I 
rounded  off  my  number  to  783- 
That's  what  the  clock  program  counts 
to  before  adjusting  the  jLffy  counter 
1  realize  this  may  seem  like  nitpick- 
ing to  some,  but  achieving  the  highest 
possible  accuracy  allows  a  continu- 
ously running  program  like  my  green- 
house tender  to  go  longer  between 
clock  resets. 

ABOUT  THE  PROGRAM 

Type  in  Listing  1,  INTRFACE.BAS, 
check  it  with  TYPO  II  and  SAVE  a 
copy  before  you  RUN  it. 

Some  simple  line-editing  wiU  turn 
INTRFACE.BAS  into  a  universal  relay- 
controlling  program.  Since  the  water 
goes  on  when  the  relay  is  off,  all  that's 
required  is  to  replace  the  word  WA- 
TER with  RELAY  and  ON  with  OFF 
(and  vice  versa)  in  the  following  lines: 
900,  920,  1020-1070,  1112-1160,  1190, 
1200,  1280,  1320.  Also  swap  lines 
500  and  510. 

To  RUN  the  program  using  PORTB 
on  an  Atari  400  or  800,  just  change 
line  5  to:  5  LET  A800  =  l 
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When  RUN,  INTRFACE.BAS  loads 
my  machine  language  timing  routine 
into  the  second  half  of  Page  6. 

Next,  the  variables  are  declared  and 
the  clock  is  initialized  beginning  at 
line  100.  The  program  asks  if  you 
wish  to  reset  the  clock,  which  is  on 
a  24-hour  cycle,  not  12  hours,  and  will 
accept  either  an  uppercase  or  lower- 
case response. 

If  you  choose  to  set  the  clock,  the 
time  is  displayed  onscreen  until  you 
press  [START].  If  the  clock  hasn't  been 
set,  don't  answer  No  to  the  reset 
prompt,  otherwise  the  clock  will  run 
at  one-fourth  speed.  Merely  stopping 
INTRFACE.BAS  will  not  stop  the 
clock. 

After  configuring  the  port  for  out- 
put, the  program  calls  subroutines  at 
lines  880  and  1110  that  request  all  tim- 
ing parameters.  These  parameters 
specify  how  the  relay  will  function. 
First  the  program  asks  for  the  earliest 
and  latest  start  times.  If  you  answer 


the  first  prompt  with  a  [RETURN] 
only,  it  will  assume  that  round-the- 
clock  operation  is  okay. 

Next,  the  program  asks  for  the 
length  of  time  you  wish  the  water  to 
be  on,  and  the  length  of  time  you 
wish  it  to  be  off.  If  you  press 
[RETURN]  at  each  of  these  prompts, 
the  program  jumps  to  the  manual 
operation  routine  at  line  1240.  This 
routine  asks  if  you  wish  to  turn  the 
water  on  or  off  before  exiting  the 
program. 

Before  operation  actually  begins, 
the  time  is  displayed  at  the  top  of  the 
screen.  Several  options  are  offered  at 
the  bottom  of  the  screen. 

At  this  point  you  can  stop  the  pro- 
gram with  the  water  on,  stop  with  wa- 
ter off,  or  if  you  want  to  change  one 
of  the  parameters,  you  may  re-start  the 
program  without  resetting  the  clock. 
These  options  are  also  available  while 
the  program  is  running. 

Finally,  press  any  key  to  start  the 


tmier. 

PROGRAM  TAKE-APART 

In  lines  440-460,  the  program 
checks  to  see  if  it's  time  to  operate  a 
relay  If  so,  lines  500  and  510  initial- 
ize variables  before  calling  the  timing 
and  relay  subroutines. 

In  lines  600-730,  the  program  gets 
the  correct  time,  adds  to  it  the  amount 
of  time  specified  for  the  relay  to  be 
operated  or  released,  and  adjusts  any 
minute  or  second  values  greater  than 
60,  or  hour  values  greater  than  24. 

Lines  770-820  contain  the  timing 
loops,  one  each  for  second,  minute, 
and  hour. 

Lines  840-847  hold  the  subroutine 
that  displays  the  time  at  the  top  of  the 
screen.  a 

John  Little  has  been  programming  Ataris 
and  tinkering  with  hardware  projects 
since  1984. 
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BUy-SELL-TRADE 


BUY»SELL»TRADE 


Atari  520STFM 

Afith  DS  DD  Drive  aigJiolM  JWoiliii 


UNBELIEVABLE  DEALS  EVERYDAY! 


^iSi'tS 


$585 


with  trsdii  of  iiaxE,  1050  mm^^i  ifilliiii 

ICALL  for  yoitf  I"  ■   ' ' 


Used 


520ST  FM  Computer    $399    1040ST  Computer 
1050  Drive  $139    130XE  Cotrputer 

Parrot  Digitizer  $28    65XE  Computer 


$585 
$119 
$85 


Indus  GT  AT  $139  1702  Monitor             $139 

Printers  from  $49  Atari  1027  LQ  Printer  $79 

Atari  1025  Printer  $79  Stianner7colorprn  $109 

Atari  16K  Expansion  $9  Atari  850  Inlfc             $69 

Dglizers/Synths  from  $29  C1802C  CoiorMon.  $149 

Joysticl<s  from  $4  Software/Bool<s  from   $1 


New 


Atari  SF354  Drive 

A  low  cost  (jrive  tor  your  system  ST 


with  your  trade-in 


All  references  lo  Irade-ins  assume  equipmeni  to  be  rn  good 
working  condition.  Shipplng'handllng  will  be  added  to  alt 
prices.  No  additional  charge  for  credit  cards  or  COD.  Mail  order 
prices  shown. 

WE  CHECK  FOR  CREDIT  CARD  THEIT! 


520ST  FM  CPU 
SC1224  CoiorMon. 
256K  DRAM 


$499    Alari1040STPlust    $719 
$325    EZ-RAMIIOK  $125 

$10    Atari  SX21 2  Modem    $89 


BUY.SELL'TRADE 


TRADE-IN  FOR  ANYTHING  WE  SELL! 


1802D  Monitor  $189    XF-551  Drive 

Atari  65XE  Computer  $109    Atari  130XE 


Avatex  1200eHC 


$179 
$149 


$79    Prac.Per.  2400HC      $189 


R-Time  8  Cart.  $49     US  Doubier  w/DOS      $39 

256K  tipgrades  Ok         $35    Atari  XE  Game  Sys    $159 
Star  NX-1000  144cps    $189    Epyx  500XJ  Joystick  $19 


$Cash  for  your  equiptnent 

Thousands  of  software  &  bool<  titles 

Plus,  MUCH,  MUCH  MORE! 

5721  Arapahoe  Suite  IB 
Boulder,  CO  80303 

Technical  Support/Questions:  1-303-939-81 44 


Atari  130XE 


)  tra<fe-in  of  $00X1, 810  (kive,  1030  Mdm. 
$CAIL  for  your  system 


Atari  xf-551 


wHh  trade-in  of  1050,800XL  OR  $109  with  1050 
$CALL  for  your  system 


1-800-347-3457 


Authorized  Sales  &  Service  for 
COMMODORE/AMIGA 
and  ATARI  ST/XL/XE 

Cotnputers  and  Accessories. 


VISA  MASTERCARD  DISCOVER         AMERICAN  EXPRESS         COD 


Cardiac  Arrest! 

1988  Antic  Award  Winner 
"Outstanding  Product" 

IBM,  Apple  II,  Atari  XE,  Atari  ST 
Antic:  "Impressive  and  amazingly  complete. " 
ST  World:  "Remarkably  easy  to  use. " 
Computer  News  for  Physicians:  "Excellent  value. " 
You  inteqsrel  the  patient's  history,  on-sceen  EKG,  lab 
data,  and  vital  signs,  then  give  treatment  orders  in  plain 
English.  Varving  degrees  of  difficulty,  with  over  45  patients 
—  and  none  is  ever  the  same  twice.  Go  "beyond  ACL5" 
with    hypothermia,    hypocalcemia,    hyperkalemia,   and 
more.  So  much  fun,  non-medical  people  use  the  simulator 
to  "play  doctor." 

ACLS  Teaching  Series'         S109 

Cardiac  Anest!  $69 

ACLS  Protocols  S29 

EKG  Teaching  $29 

CardioQui2  $19 

Blood  Gases  524 

'The  four-disk  ACLS  teaching  Series  includes  Cardiac 
Arrest!,  ACLS  Protocols,  EKG  Teaching,  and  CardioQuiz 
at  34%  savings. 

Mad  Scientist      2063  North  820  West 

Software      Pleasant  Grove,  UT  84062 
Visa/MC  orders  801-785-3028 


Computer-Assisted  Instruction 

QuizPlus 

for  Atari  ST 


QuizPlus  is  a  C.A:I. -generating  system, 
allowing  you  to  mix  tutorials,  questions,  and 
DEGAS-format  pictures  to  create 
mouse-driven  education  disks.  Includes 
editor  and  run-Hme  module. 

Quiz-Plus  C.A.L  System  $29 

We  also  sponsor  a  distribution  system  to  help 
you  sell  QuizPlus  education  disks  you've 
created.  This  month's  featured  QuizShare 
education  disks: 

The  Solar  System  $10 

The  Circulatory  System        $10 
Military  Aircraft  $10 

Mad  Scientist  Software 

2063  North  820  West 
Pleasant  Grove,  UT  84062 

Visa/MC  orders  call  801-785-3028 


THE  AMAZING  NEW 

VCICEMACTrC  Junior 


TURNS  YOUR 
COMPUTER 
INTO  A  TALKINO 
AND  LISTENING 
SERVANT 

Get  speech  output  and 
voice  recognition  in  ONE  pro- 
duct. Voice  Master  Jr.  is  easy 
to  use  with  new  commands  odded  to  BASiC  A  music 
iDonus  lets  you  write  and  compose  by  whistiino  the 
lunei  Unilmited  uses  lor  lun,  education,  practicai  op- 
piications.  l3emo  programs  Inciuded.  Price  oniy 
S39.95  Includlno  software  and  manuai.  A  Patented 
prtce/perlormance  breakthroughi 
lO  ORDER  BY  MAIL  Include  S4  shipping  &  handling 
(S6  Cdnada,  St  2  overseas)  per  order.  Visa,  Master- 
Card phone  orders  accepted.  Available  lor 
064/128  and  Atari  800/800XL/130XE.  Specily 
when  ordering.  30  day  money  iMck  guarantee, 
or>e  year  warranty.  Other  enhanced  voice  I/O 
systems  are  available  lor  Commodore,  Apple,  and 
IBM  computers. 

Call  oi  write  today  lor  FREE  Producl  Catalog 

covox  Inc.  (503)342-1271 

675  Conger  St..  Eugene,  Oregon  97402 


EQUIVALENCE 

continued  from  page  48 

name  table.  Be  sure  your  program 
knows  how  to  search  through  the 
variable  tables  for  the  information  it 
needs. 

OTHER  USES 

The  previous  examples  mostly 
speed  disk  I/O.  But  there  are  many 
other  powerful  ways  to  use  equiva- 
lenced  variables,  such  as  creating  and 
manipulating  pseudo-records  and 
defining  pointers. 

Pascal  lets  you  to  declare  RECORD 
data  types.  A  RECORD  is  a  variable 
which  contains  other  variables.  For 
example,  a  single  RECORD  variable 
for  a  banking  program  might  contain 
a  person's  name  (a  string),  an  account 
number  (an  integer),  and  account  bal- 
ance (a  floating-point  number). 

You  can  emulate  a  RECORD  in  BA- 
SIC by  consecutively  equivalencing  a 
set  of  variables  into  one  large  string. 

This  form  may  be  useful  for  creat- 
ing a  small  database  or  other  systems 
where  you  need  to  keep  data  grouped 
together  in  a  particular  fashion. 

You  can  also  use  equivalenced  vari- 
ables to  emulate  pointers.  Just  find  the 
string's  eight-byte  block  in  the  variable 
value  table  and  change  its  offset  (bytes 
three  and  four)  to  point  to  the  desired 
memory  location.  In  Listing  1,  for  ex- 
ample, we  made  the  string  point  to 
the  audio  control  registers. 

Try  some  high-speed  screen  I/O. 
Create  a  string  the  same  size  as  the 
screen  and  point  it  to  screen  memory. 
Anything  you  put  in  the  string  will  ap- 
pear onscreen  instantly. 

PROGRAM  TAKE-APARTS 

Listing  1  equivalences  a  string  with 
the  audio  control  registers,  memory 
locations  53760-53767.  S$  is  an  eight 
byte  string  that  is  offset  so  that  it 
points  to  those  locations.  CHS  con- 
tains the  frequency,  distortion,  and 
volume  values  for  each  of  the  eight 
audio  control  registers. 

The  first  part  of  Listing  1  takes  the 
frecjuency,   distortion,   and  volume 


values  from  CHS  and  puts  them  into 
the  SOUND  command. 

You  could  speed  up  this  routine  by 
storing  these  values  in  an  array.  This 
would  avoid  the  string-to-floating- 
point conversions,  but  would  require 
4,608  b}tes  of  memory  instead  of  256 
bytes  (nine  times  more  space)  and 
would  still  be  slower  than  the  second 
part  of  the  program. 

In  the  second  part,  the  program  sets 
SS  as  a  pointer  to  the  audio  control 
registers.  They  are  set  very  quickly  by 
copying  eight-byte  substrings  of  CHS 
into  SS. 

Listing  2  demonstrates  the  gener- 
alized method  for  equivalencing  vari- 
ables. As  written,  it  can  be  RUN  in 
Atari  BASIC  or  Turbo  BASIC  XL. 

Listing  2  begins  by  asking  for  the 
size  of  the  floating-point  array  M(). 
After  DIMensioning  M()  and  the 
string  variables.  Listing  2  finds  the 
location  of  each  of  the  variable  tables. 

Next,  the  program  jumps  to  the 
subroutine  at  line  2000  to  find  the 
variable  number,  offset  and  dimen- 
sions of  M()  and  SS.  The  actual 
equivalencing  of  M()  and  SS  occurs 
in  lines  380-500.  Lines  520-1250  con- 
tain the  I/O  and  initialization  bench- 
marks for  the  data  in  Figure  1  and 
Figure  2. 

The  subroutine  at  line  1500  con- 
tains a  timer  and  the  subroutine  at  line 
1600  prints  the  first  five  elements  of 
M( )  to  show  that  the  contents  of  M( ) 
actually  do  change  during  the  bench- 
mark routines.  A 

Doug  White  of  Arlington,  Texas  uses  his 
1200XL  as  an  aid  in  designing  and  test- 
ing loudspeakers.  This  is  his  first  appear- 
ance in  Antic. 

Listing  on  page  32 
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Celebrity  Cookbook,  Cheat! 


CELEBRITY  COOKBOOK 

Liz  Taylor's  diet  lunch,  Rock  Hud- 
son's hot  buttered  rum,  Boy  George's 
diet  breakfast,  Ronald  Reagan's 
corned  beef,  Sophia  Loren's  first- 
course  pizza.  .  .  Does  your  recipe  fil- 
ing system  consist  of  musty  3-by-5 
cards  and  food-stained  newspaper 
clippings  stuck  into  your  crumbling 
copy  of  "The  Joy  of  Cooking"?  With 
this  first  installment  of  a  promised  six- 
volume  Celebrity  Cookbook  series, 
it's  easy  to  take  charge  of  your  recipes. 

The  software  contains  50  celebrity 
recipes,  plus  goodies  such  as  diet 
secrets  of  the  stars,  a  wine  directory, 
bartender's  guide  and  Perle  Mesta's 
Party  Tips.  All  recipes  can  be  dis- 
played onscreen  or  printed  out.  You 
can  resize  recipes  in  terms  of  the  num- 
ber of  servings  and  print  a  shopping 
list  for  any  recipe. 

Menu  selection  can  be  made  with 
the  keyboard,  joystick  or  ST  mouse, 
although  the  joystick  aaion  seems  too 
fast.  The  Cookbook's  publisher  is 
working  on  the  mouse-driven  Graph- 
ics Operating  Environment  for  the 
Atari  8-bit.  The  joystick  doesn't  work 
at  all  in  the  main  menu — a  small  flaw, 
but  potentially  confusing.  When  us- 
ing the  keyboard,  the  [ARROW]  and 
[RETURN]  keys  do  most  of  the  work. 

The  heart  of  the  program  is  the  filer 
for  your  own  personal  recipes — My 
Favorite  Recipes.  This  is  really  a  small 
word  processor  and  database,  with 
cut-and-paste  and  search  functions. 
You  can  ask  for  chicken  recipes, 
recipes  using  anise,  or  recipes  under 
a  heading  you  define  as  "I'm  tired  and 
it's  easy."  With  a  little  experimenta- 
tion, anyone  can  start  filing  right 
away.  But  don't  go  too  far  too  soon, 
print  the  help  file  first.  It  explains  the 
data  entry  process,   defining  your 
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fields  and  the  more  advanced  func- 
tions of  the  filer  program. 

To  me,  a  recipe  filer  seems  to  be  one 
of  those  applications  for  which  the 
technology  of  choice  is  still  pencil, 
paper  and  rusty  3x5  file  box.  Our 
computer  lives  close  to  the  kitchen — 
in  the  dining  room,  cohabiting  with 
10,112  toys.  But  typing  in  all  of  our 
recipes  seems  like  an  awful  lot  of 
work.  And  my  review  copy  had  a 
printing  bug.  My  personal  recipes 
printed  out  fine,  but  the  celebrity  rec- 
ipe printouts  repeatedly  crashed  the 
computer.  I  mailed  the  disks  back  to 
the  company  around  the  time  it 
moved  from  Palm  Springs  to  Mary- 
land. At  deadline  I  had  received  no 
response. 

If  you  do  want  your  recipes  on 
disk,  Celebrity  Cookbook  is  for  you. 
The  program  is  fun,  easy  and  well- 
conceived  and  designed.  Now  if  I 
could  only  figure  out  how  to  attach 
my  blender  to  the  cartridge  slot.— 
DAVID  MERRIHUE 

$29.99,  48K  disk.  U.S.A.  Media,  7810 
Malcolm  Road,  Clinton,  MD  20735.  (301) 
868-5494. 


CHEAT! 

Cheat!  intrigued  me  immediately. 
1  don't  know  how  many  times  I've 


wished  I'd  had  unlimited  lives  in  a 
video  game,  or  that  I  could  advance 
past  that  screen  that  had  confounded 
me  for  countless  days  and  countless 
quarters.  Well,  although  Cheat!  won't 
help  you  very  much  in  the  arcades, 
at  least  home  players  can  end  some 
of  the  torture. 

Cheat!  is  a  game  utility  which 
makes  a  working  copy  of  your  favor- 
ite game,  modified  to  allow  unlimited 
lives.  The  only  drawback  of  Cheat!  is 
that  it  will  only  work  for  the  titles  it 
recognizes.  And  while  the  list  is  more 
than  100  titles  long,  there  were  only 
a  couple  of  titles  I  had  even  heard  of 
(and  only  one  that  I  had  available) — 
and  I  have  hundreds  of  commercial 
games.  Perhaps  the  other  titles  were 
public  domain  or  shareware. 

But  this  aside,  1  selected  Boulder 
Dash  from  the  list  to  see  how  Cheat! 
worked.  And  it  didn't.  I  followed  the 
instructions  precisely.  Cheat!  told  me 
it  couldn't  locate  the  "Lose  Life  Rou- 
tine," or  something  like  that.  Then  it 
babbled  about  sector  locations — 
gibberish  to  a  technical  novice  like 
me.  I  can  run  any  program,  but  I'd  be 
hard  pressed  to  peek  into  any  disk 
files. 

In  short,  if  you're  thinking  of  buy- 
ing this  one,  make  sure  it  works  with 
some  of  your  titles,  or  you'll  be  stuck 
with  a  $25  conversation  piece. 

While  I  don't  think  that  any  game 
on  the  market  would  drive  me  to  buy 
Cheat!,  I'm  sure  that  some  of  you  have 
programs  you  still  haven't  mastered, 
or  a  level  or  two  you  still  haven't 
visited.  Cheat!  might  be  your  only 
hope. -STEVE  PANAK 

$24.95,  48K  disk.  Alpha  Systems,  1012 
Skyland  Drive,  Macedonia,  OH  44506. 
(216)  467-5665. 
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PRODUCT  REVIEW 


NX-1 000  RAINBOW 

First  affordable  COLOR  dot-matrix  printer  By  Matthew  RatcUff 


The  star  NX-1000  Rain- 
bow is  the  first  affordable 
and  practical  graphics- 
capable  dot-matrix  color 
printer  First  there  was  the  Epson  JX- 
80  dot-matrix,  which  cost  about  five 
times  more  than  the  Rainbow.  Then 
there  were  the  more  affordable 
Okidata  thermal-transfer  color 
printers,  which  used  very  expensive 
ribbons,  were  extremely  slow,  did  not 
work  with  many  popular  printing 
programs  and  did  not  do  a  very  good 
job  of  printing  normal  all-text  pages. 
The  NX-1000  Rainbow  provides  all 
the  practicality  of  a  standard  dot- 
matrix  printer,  plus  the  beauty  of 
vivid  color — all  at  a  reasonable  price. 


Except  for  color  printing,  the  Rain- 
bow is  nearly  identical  to  the  standard 
NX-1000  printer  reviewed  by  Gregg 
Pearlman  in  the  October  1988  Antic. 
The  Rainbow  also  has  several  type- 
styles  and  fonts,  aU  selectable  via  mul- 
tiple panel-button  presses — including 
draft  and  near  letter-quality  Courier, 
two  Orators  and  Sanserif 

Unfortunately,  color  selection  was 
not  added  to  the  panel  for  the  Rain- 
bow. Most  software  does  not  directly 
support  color  printing,  so  this  would 
have  been  a  very  convenient  enhance- 
ment. The  Rainbow  is  completely 
Epson  JX-80  compatible,  and  for 
Atari  ST  users  a  DEGAS  printer-driver 
called  JX80.  PRT  is  already  available 


on  CompuServe's  SIG-Atari. 

Atari  8-bit  owners  can  print  color 
graphics  on  the  NX-1000  Rainbow  or 
the  JX-80  with  YEMACYB/4  software 
(S29.95)  by  Electronical  Software,  P.O. 
Box  8035,  Rochester,  MI  48063.  This 
color  screen  dump  utility  is  capable 
of  printing  your  favorite  Micro  Illus- 
trator formatted  pictures  in  ftiU  color. 
NaturaUy,  the  8-bit  needs  a  printer  in- 
terface such  as  ICD's  P:R:  Connection 
to  work  with  the  NX-1000. 

The  Rainbow  has  a  rear  tractor  feed 
mechanism,  giving  it  the  ability  to 
perform  a  reverse  form  feed.  I'm  will- 
ing to  put  up  with  the  nuisance  of  a 
rear  tractor  feed  (it's  difficult  to  get  to 
and  load  paper  properly)  for  this  ad- 
ded feature,  which  greatly  simplifies 
color  separation  printing. 

Using  Publishing  Partner  Profes- 
sional software,  the  Atari  ST  can  print 
images  in  color  separation  style,  each 
color  requiring  a  separate  pass 
through  the  printer,  followed  by  a  re- 
verse form  feed.  The  entire  page  is 
printed  first  in  magenta,  then  cyan, 
yellow  and  black.  The  original  YE- 
MACYB  program  (Reviewed  in  the 
July  1987  Antic,  also  available  for 
$29-95  from  Electronical  Software.) 
supports  multi-color  printing  like  this 
on  single-color  printers,  prompting 
you  to  change  the  color  of  the  ribbon 
between  each  pass.  With  the  NX-1000 
Rainbow  and  YEMACYB/4,  you  get 
faster  and  more  convenient  one-pass 
color  printing. 

I  was  able  to  find  some  classic 
DEGAS  pictures  and  print  them  on 
the  NX-1000  Rainbow.  Since  I  have 
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The  Rainbow  provides  tlie  prac- 
ticality of  a  dot-matrix  printer, 
plus  the  beauty  of  vivid  color. 


been  playing  with  Lightspeed  C  on 
the  8-bit  Atari  growing  Mandelbrot  set 
fractals  (Antic,  November  1988),  I  had 
a  lot  of  fun  dumping  color  fractals  to 
the  Rainbow  as  well.  The  Rainbow 
does  a  very  good  job,  much  better 
than  the  Okidata  thermal-transfer 
printers.  And  pictures  are  much  less 
expensive  to  generate,  thanks  to  the 
Rainbow's  multi-pass  fabric  ribbon. 
The  ribbon  has  four  color  bands: 
black,  cyan  (blue),  magenta  and  yel- 
low. It  seemed  to  wear  out  rather 
quickly.  Many  of  the  newer  printers 
using  cartridge  ribbons  have  small  re- 
inking  rollers  built  in,  but  the  multi- 
ple color  bands  of  the  Rainbow's  rib- 
bons make  such  re-inking  impossible. 
NX-1000  color  ribbons  cost  about  $11 


each  and  the  black-only  ribbons  run 
approximately  $6. 

Colored  text  is  quite  simple  to  ac- 
cess from  any  word  processor  Color 
and  font  commands  are  sent  to  the 
printer  by  placing  the  letter  C  for 
color,  or  F  for  font  selection,  within 
a  pair  of  double  parentheses  followed 
by  a  single  ASCII  digit  indicating  the 
font  or  color  selected.  ((C))l  would 
tell  the  Rainbow  to  print  RED  text. 
((F))0  would  select  the  near  letter 
quality  Courier  font. 

The  only  drawback  with  these  five- 
character  command  codes  is  that  your 
word  processor  treats  those  charac- 
ters as  text,  but  the  printer  gobbles 
them  up  as  a  command.  This  may 
cause  some  margin  problems  in  your 


text,  but  you  can  work  around  this  by 
keeping  color  and  font  commands  on 
lines  separate  from  the  main  body  of 
the  text.  Colors  such  as  green  are 
created  by  the  printer  in  two  passes, 
first  in  yellow  and  then  reprinting  the 
line  in  cyan.  When  NLQ  printing  is 
enabled,  all  text  is  printed  twice  to  get 
the  higher  resolution.  If  you  have  a 
rather  tired  ribbon,  you  may  wish  to 
enable  double-strike  printing  for  a 
darker  output.  Printing  green,  NLQ, 
double-strike  text  on  the  NX-1000 
Rainbow  will  require  six  passes  of  the 
printhead  per  line  of  text!  The  out- 
put is  beautiful,  but  slow. 

I  have  found  that  you  can  select  a 
single  color,  say  green  or  red,  from  a 
simple  BASIC  program  and  then  run 
the  Hi  Tech  Expressions  8-bit  pro- 
grams Print  Power  or  Sesame  Street 
Print  Kit.  All  your  cards  and  posters 
will  print  in  that  chosen  color 

Other  features  of  the  ]NX-1000  Rain- 
bow include  some  niceties  like  a 
power  switch  at  the  front,  where  it 
belongs.  The  printer  connector  and 
power  cord  are  on  opposite  sides  of 
the  printer,  not  hanging  off  the  rear 
where  they  can  obstruct  the  paper 
path.  Print  and  graphics  quality  of 
both  black  and  color  are  very  ac- 
ceptable. 

The  rear  tractor  feed  also  provides 
for  a  feature  called  Paper  Park.  The 
Rainbow  will  reverse  feed  the  paper, 
extracting  it  completely  from  the 
platen.  Changing  from  tractor  to  fric- 
tion feed,  you  can  insert  single  sheet 
paper  from  above  the  printer  When 
done,  simply  return  to  tractor  feed 
and  press  the  panel  buttons  for  a  form 
feed.  The  Rainbow  will  automatically 
reload  your  paper  Unfortunately,  the 
printer  does  not  find  the  precise  top 
of  form  upon  reload,  requiring  man- 
ual adjustment. 

The  NX-1000  Rainbow  has  added 
a  whole  new  dimension  to  my  per- 
sonal computing.  A 

$379.  Star  Micronics  Inc.,  200  Park 
Avenue,  New  York,  NY  10166.  (212) 
986-6770. 
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SERIOUS  BUSINESS 

Can  you  really  run  a  business  on  your  Atari?  You 
bet!  TurboBase  from  MicroMiser  is  serious  software 
for  serious  businesses.  It  computerizes  your  whole 
office  with  General  Ledger,  Accounts  Receivable, 
Accounts  Payable,  Payroll,  Inventory,  Point  of 
Sales,  etc.  It's  also  a  REAL  database  with  REAL 
power  to  organize  your  information.  After  giving  up 
on  other  databases,  many  happy  customers  use 
TurboBase  for  its  database  power  alone. 

TurboBase  is  equal  to  anything  running  on  IBM 
PCs,  but  costs  thousands  less.  Hundreds  oi  success- 
ful business  are  running  on  TurboBase.  This  is 
a  comprehensive  package;  it's  flexible  and  sophisti- 
cated. Expect  to  spend  about  six  weeks  learning  to 
get  the  most  out  of  it.  Of  course  MicroMiser  pro- 
vides complete  professional  support. 

Now  TurboBase  80  demolishes  the  final  advantage 
of  more  expensive  machines.  It  works  with  the  Atari 
XEP  80  adaptor  to  give  your  work  o  full  80  col- 
umn display.  See  twice  as  much  information  at  a 
glance.  Lay  out  your  reports  and  forms  exactly  as 
they'll  appear  in  print.  If  you  don't  already  have  the 
Atari  XEP  80  adaptor,  we'll  provide  that  for  you, 
too. 

TurboBase  (TH0015) $159.95 

TurboBase  80  (requires  XEP  80)  (TH0016)  $179.95 
Atari  XEP  80,  80  column  adaptor  (TH0017).  $79.95 
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EVERYONE'S  FAVORITE 


SUPERDOS  5.0  supports  all  drives  and  densities 
with  auto-sensing  so  you'll  never  again  worry  about 
mixed  formats.  Plus,  you  get  support  for  RAMdisks 
(up  to  320K),  and  you  can  restore  deleted  files  and 
patch  damaged  ones  and  much  more.  Only  SUPER- 
DOS  5.0  fully  supports  your  new  XF551  disk 
drive,  yet  is  compatible  with  DOS  2.5.  SUPERDOS 
is  the  easiest,  friendliest  DOS  there  is.  See  why 
everyone  loves  SUPERDOS.  Imported  from  Austra- 
lia by  Technical  Support. 
SUPERDOS  5.0  (TH0023) $20.00 
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ATARI  400/800/600/  1200 


m  STICKYBEAR 
SAYS  HI! 


He'll  give  your  kids  a  headstart. 
Pre-schoolers  love  Stickybear, 
and  so  do  their  parents.  He's  the 
most  popular  name  in  young  people's 
software  for  a  reason,  he's  the  best! 
Now  these  fun,  educational  programs 
can  help  your  children  to  grow  and 
develop.  Don't  neglect  the  benefits 
your  computer  offers  your  little 
ones.  Hours  of  excitment  while  they're 
learning  valuable  primary  skills. 
Rated  for  ages  3-6,  but  older  kids  love 
Stickybear,  too.  Order  now  and  save  1/ 
3!  From  Optimum  Resources/ 
Weekly  Reader. 


Fun  leductional  games  for  kids: 

Stickybear  Shapes  (TH0018) just  $19.95 

Stickybear  Numbers  (TH0019) just  $19.95 

Stickybear  Opposites  (TH0020) just  $19.95 

Fun  games  for  kids  to  play  with  their  parents. 
Stickybear  Basketbounce  (TH0021)  just  $19.95 
Stickybear  Bop  (TH0022) just  $19.95 


THE  FINEST  TEXT 
ADVENTURES 

Infocom  always  created  the  greatest 
text  advetures.  Now  the  Antic  ARCADE 
brings  you  four  of  their  best,  at  a  fraction  of 
the  original  prices.  Find  out  for  yourself  why  these 
adventures  have  become  the  most  popular  games  of 
all  time.  From  Mediagenic/Infocom. 

Mindshadow  (TH0024) $>««5rao«;  $17.95 

Seastalker  (TH0025) $S»i»5.now  $17.95 

Moonmist  (TH0026) $»&S.now  $17.95 

Wishbringer  (TH0027) $S»>»5.now  $17.95 


IC  ARCADE 


;iRA  MERS  -  BUY  SOFTWARE! 

7600XL/800XL/65XE/130XE/XE  GS 
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3D  DYNAMITE 


25% 


fl 


Now  you  can  have  the  kind  of  3D  abiUty  which  is 
revolutionizing  graphics  on  larger  computers.  With 
Super  3D  Plotter  II  from  Elfin  Magic,  your  8-bit  Atari 
delivers  Cyber  Power.  Plot  complex  solid  objects.  Spin 
them,  rotate  them,  view  them  from  any  angle  or 
distance.  Work  with  a  joystick  or  enter  data  num- 
erically, or  both.  Super  3D  Plotter  II  is  the  most 
advanced  solid  object  modeling  program  available  on 
any  8-bit  computer.  And  now  the  price's  reduced  25%. 
Super  3D  Plotter  II  (TH0028) $>«  now  $29.95 


COMPUTERIZE  YOUR  HOME 


The  X-10  is  the  most  popular  home  control  system.  And 
no  wonder,  you  don't  need  expensive  rewiring.  X-10 
offers  interfaces  for  all  popular  computers  EXCEPT 
YOUR  ATARI.  Now  Terrific  Corp.  comes  to  the  rescue 
with  the  PowerManager.  It  hooks  your  Atari  to  any  X-10 
interface  designed  for  any  other  computer. 

Now  your  Atari  controls  the  lights,  appliances,  thermo- 
stats, fans,  alarms,  and  anything  else  electrical.  Regu- 
late outside  lighting  for  security,  safety,  and  beauty; 
never  come  home  to  a  dark  house  again.  Control  when 
the  kids  watch  TV.  Manage  your  furnace  and  air  condi- 
tioner, save  money  on  energy  bills.  Software  and  cable. 
(Requires  CP290  Powerhouse  Interface  from  X-10). 
PowerManager  (TH0029) ^S^^now  $24.95 


PRINT  SHOP 

FONTS  AND  BORDERS 


PS  FONTS 


Everybody's  got  lots  of  Print  Shop  pictures,  but  where  do 
you  find  fonts  and  borders?  Right  here!  We  have  the 
whole  collection  from  No  Frills  Software,  all  four  disks! 

(Requires  Print  Shop  upgraded  with  the  Print  Shop  Companion  and 
XL/XE  with  at  least  64k). 

PS  Fonts  and  Borders  #1  (TH0030) $14.95 

PS  Fonts  and  Borders  #2  (TH0031) $14.95 

PS  Fonts  and  Borders  #3  (TH0032) $14.95 

PS  Fonts  and  Borders  #4  (TH0033) $14.95 

Print  Shop  and  Print  Shop  Companion®  Broderbund  Software 


HALF  PRICE  MIDI! 

Yes,  prices  for  these  fabulous  Hybrid  Arts  hard- 
ware/software systems  are  slashed  in  half.  All  you 
need  to  control  MIDI  from  your  Atari.  MIDI  Track 
controllers  are  the  most  sophisticated  16  track 
sequencer/editors  you  can  get.  Compose,  edit,  and 
play  your  creations.  Use  MIDI  Track  in  your  music 
room,  or  use  it  in  your  concerts.  It's  equal  to  any- 
thing around  -  at  a  fraction  of  the  cost.  Plus  you  can 
instantly  find  and  load  the  exact  sounds  you  want 
with  the  famous  Hybrid  Arts  Patch  Librarians.  So, 
whether  you're  a  garage  band  on  the  way  up,  a 
successful  professional,  or  even  if  your  family  just 
gathers  around  the  keyboards  in  the  evening,  MIDI 
is  your  future  in  music.  And  MIDI  is  Hybrid  Arts. 

MIDI  Track  II  (TH0034) y^now  $174 

MIDI  Track  III  (128K)  (TH0035)..  pOB^now  $187 

Plus  these  great  Patch  Librarians: 
CZ  Librarian  (for  Casio  CZ  keyboards) 

(TH0036) Oe^e^now  $39.95 

DX  Libraian  (for  Yamaha  DX  Keyboards) 

(TH0037) 0»iS5now  $59.95 

Gen  Patch  (generic,  for  all  equipment) 

(TH0038) $©fi^nou;  $74.50 

■  ■■■■■■■■■■■SSBBSBSBaBHilSIIH 

PERSONAL  POWER 

You  paid  for  Player-Missle  Graphics,  Display  List 
Interrupts,  superb  sound,  etc.  -  why  can't  you  use 
them?  Now  you  can!  Advan  BASIC  is  the  most 
powerful  language  ever  created  for  your  Atari. 
But  it's  also  the  easiest  to  use.  Write  high  speed, 
professional-quality,  software.  It's  easy  and  fun. 
Since  it's  BASIC,  it's  very  easy  to  use.  Since  it's 
compiled,  it's  very,  very  fast.  Order  now,  save  25% 

Advan  BASIC  (TH0039) $39.95  now  $29.95 

Modules  to  increase  your  productivity: 
Utilities  Pack  (includes  runtime) 

(TH0040) $><^  now  $24.95 

Screen  Design  (for  the  professional  look) 

(TH0041) $2»!C  now  $24.95 

Optimizing  Compiler  (when  speed's  everything) 
(TH0042) ^Xl  now  $19.95 


THE  ARCADE    PRESENTS 


ANTIC  S 


THE  ANTIC  ARCADE  N 

YOUR  PURCHASES  GUARANTEE 


PRODUCTIVITY  TOOLS 
TO  KEEP  YOU  AHEAD 


^  EXCITMENT,  CHALLENGE, 
AND  WONDER 


CREATIVE  PROCESS  -  This  amazing  outline 
processor  organizes  your  ideas  for  writing  -  or  for 

anything  else.  (AP0151) $19.95 

SPELL  MAGIC  -  Catch  embarrassing  spelling 
errors  in  your  reports  and  letters.  Works  with  any 

word  processor.  (AP0144) $19.95 

PRINTER  DRIVER  CONSTRUCTION  SET  - 
Make  your  AtariWriter  cartridge  compatible  with 

any  printer.  (AP0131) $19.95 

BACKTALK  1.2-  The  programmable  macros 
automate  your  telecommunications,  save  you  time 

and  money.  (AP0154) $19.95 

CHAMELEON  TERMINAL  EMULATOR  -  Call  a 
mainframe  with  your  Atari:  TTY,  ADM-3A,  VT-52, 

IBM  3031.  (AP0113) $19.95 

DISK  SCANNER  -  Recover  damaged  or  deleted 
files  on  single  or  double  density  drives. 

(AP0145) $15.95 

SHERLOCK  1050-  Recover  damaged  or  deleted 
files  on  single  or  enhanced  (dual)  density  drives. 
(AP0155) $19.95 


ORDER    BY    MAIL! 


Send  check  or  money  order  to: 

Antic  Software#MA89, 

544  Second  Street, 

San  Francisco,  CA  94107. 
or  phone  toll  free 

$20.00  minimum  order,  please  include 
$3.00  shipping  and  handling  per  order. 
California  residents  add  6.5%  sales  tax. 


XTAL  (CRYSTAL)  -  Command  a  star  cruiser! 
Detailed  effects  are  everywhere.  More  than  a  game: 
an  epic.  (AP0158) $15.95 

BLUE  TEAM  BRIDGE  -  Tournament  level.  Play  at  any 
time,  improves  your  bidding-or  learn  to  play.  Great 
graphics  (AP0178) $15.95 


ASTROLOGY  -  Create  beautiful  charts  for  your 
family  and  friends.  Imaginative  gifts,  always 

popular.  (AP0167) $15.95 

ATARIORACLE  -  The  computer  OUJI  board. 
Predicts  the  future,  answers  all  questions,  picks 

LOTTO  numbers.  (AP0138) $15.95 

CRIBBAGE  and  SEVEN  CARD  STUD  -  Two 
great  card  games.  The  poker  players  don't  cheat, 

but  they  bluff.  (AP0173) $15.95 

COLOSSUS  CHESS  3.0  -  The  best  Atari  chess 
game  for  the  serious  player,  beginner  or  Grand- 
Master.  (AP0161) $15.95 

PUZZLER  -  Infinite  jigsaw  puzzles,  use  your  own 
pictures.  Set  difficulty  level  for  any  age  group. 

(APO150) $12.95 

BUMPOMOVS  DOGS  -  A  two-player,  non-violent, 
action  game  you  can  enjoy  with  your  kids.  Great 

family  fun.  (AP0112) $12.95 

BURGERS  -  Computer  fun  for  younger  kids.  If  you 

eat  too  many  burgers,  POP!  (APO109) $12.95 

TAXICAB  HILL  -  Delightfully  chaotic  as  other 
cabbies  steal  your  fares.  Variety  of  neighborhoods, 

great  music.  (AP0137) $15.95 

DIGGERBONK  -  Scrolling,  multi-screen  arcade 
excitement  for  kids  of  all  ages,  complete  with  a 

Panic  Button.  (APO107) $12.95 

DRAGON'S  QUEST  -  A  wonderful  illustrated 
adventure  game  for  your  entire  family.  Fast  and 

fantastical.  (AP0139) $15.95 

KING  TUT'S  TOMB  and  CONSTRUCTION  SET 
-  48  dangerous,  multi-screen  tombs,  or  construct 

your  own.  (AP0149) $15.95 

LORD  OF  THE  ORB  -  Intense  arcade  action  as 
you  search  the  huge  scrolling  castle  for  the  stolen 

Orb.  (APO103) $15.95 

CHOP  SUEY  -  Joystick-busting,  action-packed, 
martial  arts  excitment.  One  of  our  all-time  best 

sellers.  (AP0162) $15.95 

MARS  MISSION  II  -  Streak  through  the  skies  and 
the  caverns  of  Mars.  Furious  action  is  everywhere. 
(APO120) $15.95 


OFTWARE 


EDS  YOU  -  HELP  US  GROW 

JTURE  SOFTWARE  FOR  YOUR  ATARI 


24  HOURS 
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Visa  MasterCard 


A^  ART  +  MUSIC  +  JOY  = 
COMPUTER  CREATIVITY 


COLOURSPACE  -  The  spectacular  visual  effects 
generator.  Control  your  own  mind-bending  light 

shows.  (AP0166) $15.95 

RAMBRANDT  -  The  best  paint  software,  bar  none. 

Joystick  or  tablet.  Best  seller.  (AP0157) $19.95 

SOLID  OBJECT  MODULE  -  Create  3-D  objects 
automatically,  view  from  any  angle.  (Requires 

RAMbrandt).  (AP0182) $15.95 

PICTURE  PLUS  and  LISTER  PLUS  -  The 
complete  graphics  printing  set.  For  almost  all 

pictures  and  printers  (AP0179) $19.95 

SCREENPLOT  -  Print  Atari  pictures  on  most 
plotters,  including  the  Atari  1020.  (AP0135) ..  $15.95 
ENHANCED  POKEY  PLAYER  -  Compose  music, 
change  it  -  experiment.  Save  the  best.  Add  songs  to 

your  programs.  (AP0147) $15.95 

ENVISION  -  Fills  all  your  character  graphics  needs: 
animation,  fonts,  multi-screen  maps,  much  more. 

(AP0185) $19.95 

GRAPHICS  SHOP  -  Convert  your  own  pictures  to 
use  with  Print  Shop  signs,  banners,  cards,  etc. 
(AP0156) $19.95 

A  POWER  TOOLS 


BASIC  VIEW  -  BASIC  program  analyzer  and 
debugger.  Write  better  programs,  faster.  For  beginner 

or  expert.  (AP0192) $19.95 

FLOATING  POINT  PACKAGE  and  EXTENDED 
DDT  -  Easy  math  for  MAC/65  and  a  great  assembly 

debugger.  (AP0189) $19.95 

DEEP  BLUE  C  and  MATHLIB  -  Use  C,  the  language 
of  the  future,  now!  Includes  advanced  math  library. 

(AP0188) $19.95 

INTERLISP/65  -  Learn  Artificial  Intelligence 
programming  with  LISP,  available  now  for  your  Atari. 
(AP0191) $19.95 


PERSONAL  GROWTH  FOR 
YOU  AND  YOUR  FAMILY 


SPEEDREAD+  -  Double  or  triple  your  reading 
speed.  Read  with  less  effort  and  better  compre- 
hension. Proven  techniques.  (AP0164) $19.95 

MEMOREASE+  -  Memorize  anything  quickly  and 
easily.  Learn  speeches,  songs,  drama  roles,  etc. 

Improve  your  memory.  (AP0163) $19.95 

EARTH  VIEWS  -  An  electronic  globe/atlas  and  an 
exciting  geography  game.  Useful,  educational,  fun. 

(AP0141) $19.95 

MAPWARE  -  Generate  varied  maps  in  4  projections 

for  school,  business,  HAM,  etc.  (AP0134) $19.95 

SPACE  BASE  -  Star  atlas  identifies  objects,  refer- 
ence base  gives  you  detailed  information.  For  all 

ages.  (AP0142) $19.95 

ORBIT:  A  TRIP  TO  THE  MOON  -  Pilot  your  craft 
from  Earth  orbit  to  Lunar  landing.  Learn  space 

navigation.  (APO 168) $15.95 

SARATOGA  -  American  Revolution  strategy  game. 
Detailed,  realistic,  fun.  Full-color  plajffield  map. 
(APO104) $15.95 


$10. 
Each 


PUBLIC  DOAAAIN 
WINNERS! 


PHOTO  GRAPHICS  -  Great  digitized  pictures  {PD0017) 
ANTIC  FORTH  -  Compact,  fast  programming  language  (PD0020) 
THE  FIX  XL  -  Run  older  programs  on  XL/XE  computers  (PD0026) 
CROCKFORD'S  WHIMSY  -  Magical  disk  for  all  ages  (PD0033) 
CUES  EDPACK  #1  -  Educational  programs  (PD0044) 
CUES  EDPACK  #2  -  More  Educational  programs  (PD0045) 
ASTRONOMY  &  METEROLOGY  Great  for  the  hobbiest  (PD0063) 
130XE  HI-RES  DESIGNER-  GR.8  draw  pgm  for  130XE  (PD0070) 
HEAVY  METAL  ART  -  Spectacular  pictures,  100s  of  colors  (PD0060) 
RAMBRANDT  COLLECTION  -  The  best  RAMbrandt  art  (PD0073) 
STEVE  DONG'S  GALLERY  -  Incl.  Challenger  memorial  (PD0074) 
VTIOO  TERMINAL  EMULATOR  -  Access  mainframes  (PD0037) 
TEK  4010  TERM  EMULATOR-  For  graphic  mainframes  (PD0083) 
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Tech  Tips 


BOOLEAN  STICK 

By  Brian  Murphy 

It's  a  fairly  easy  task  to  program  your  joystick  for 
drawing  on  the  screen  while  avoiding  Error  l4l 
(cursor  out  of  range).  A  simple  program  to  handle 
such  an  exercise  might  look  like  this: 

10  GRAPHICS  7+16 

20  COLOR  1 

100  S  =  STICK(0) 

1 10  IF  S  =  7  THEN  X  =  X  +  1 

120  IF  S  =  11  THEN  X  =  X-1 

130  IF  S=13  THEN  Y  =  Y+1 

140  IF  S  =  14  THEN  Y  =  Y-1 

1 50  IF  S  =  5  THEN  X  =  X+1:Y  =  Y+1 

160  IF  S=6  THEN  X  =  X+  1:Y  =  Y-1 

170  IF  S=9THENX  =  X-1:Y  =  Y+  1 

180  IF  S  =  10  THEN  X  =  X-1:Y  =  Y-1 

190  IF  X>159  THEN  X=  159 

200  IF  X<0  THEN  X  =  0 

2 10  IF  Y>95  THEN  Y  =  95 

220  IF  Y<0  THEN  Y  =  0 

230  PLOT  X,Y 

240  GOTO  100 

But  there  is  a  much  better  way  to  code  this  func- 
tion using  Boolean  Logic  You  see,  Atari  BASIC 
assigns  a  value  of  one  to  any  equation  or  inequal- 
ity that  is  true  and  zero  to  any  that  is  false.  It  is  im- 
portant to  realize  that  you  don't  need  the  conven- 
tion of  an  IF.  .  .THEN  statement  in  order  to  have  an 
expression  such  as  T=  5  evaluated  as  true  (one)  or 
false  (zero).  For  example: 

10T  =  5 
20  ?  T=5 

In  this  example  the  value  five  is  assigned  to  T— so 
the  expression  T=  5  in  line  20  is  evaluated  to  be  one. 
This  mini-program  will  print  a  one. 

Armed  with  this  background  information  we're 
ready  to  rewrite  the  joystick  function.  Just  replace 
lines  110  through  220  in  the  above  program  with 
the  two  following  lines: 

110  X  =  X  +  ((S  =  5)  +  (S  =  6)  +  (S  =  7)) *(x<l 59)- 
((S  =  9)  +  (S  =  10)  +  (S  =  1 1))  *(X>0) 

120  Y  =  Y  +  ((S  =  5)  +  (S  =  9)  +  (S=13))*(Y<95)- 
((S  =  6)  +  (S  =  10)  +  (S  =  14))*(Y>0) 

The  parentheses  ( )  in  the  procedure  are  included 
to  ensure  that  everything  is  evaluated  in  the  proper 


order.  Very  often  when  using  Boolean  Logic  you  wiU 
need  such  parentheses.  Also  note  that  I  used  addi- 
tion ( +  )  to  represent  Logical  OR  and  multiplication 
( * )  for  Logical  AND.  This  is  possible  only  if  there 
is  mutual  exclusion — only  one  of  the  possible  con- 
ditions can  occur  at  any  instant  of  time.  Since  a 
joystick  can  ordy  be  pointed  in  one  direction  at  a 
time,  we  are  assured  of  mutual  exclusion. 

Obviously  this  routine  makes  the  program  much 
shorter,  requiring  less  memory.  This  new  coding 
replaces  twelve  lines  with  just  two.  In  many  cases 
multiple  IF.  .  .THEN  statements  that  require  sepa- 
rate lines  can  be  sununed  up  in  one  line. 

A  joystick  routine  is  only  one  of  many  possible 
uses  for  Boolean  Logic  expressions.  By  using 
Boolean  Logic  throughout  your  routines  you  can 
save  a  great  deal  of  RAM  for  that  extra  feature  you 
just  couldn't  fit  in. 

AUTORUN  SETUP 

By  Robert  Wallace 

Antic  published  a  September  1988  Tech  Tip  called 
AUTOGO.BAS  which  creates  an  autorun  file  that  will 
LOAD  and  RUN  BASIC  programs.  But  this  great  util- 
ity already  exists  and  most  Atari  users  already  have  it  with- 
out knowing.  On  the  DOS  2.5  master  disk  there  is  a 
SETUP.COM  flJe  which  will  create  AUTORUN.SYS  files  for 
BASIC. 

The  menus  are  easy  to  follow.  Note  that  SETUP.COM 
will  work  on  the  disk  in  drive  1  unless  you  use  option 
1  in  the  menu  below: 
Choose  an  option: 

1.  Change  current  drive  number 

2.  Change  system  configuration 

3.  Set  up  AUTORUN  for  Boot 

The  DOS  2.5  Master  disk  came  with  new  Atari  drives 
from  the  1050  on.  If  you  don't  have  a  copy,  check  with 
your  local  dealer  or  users  group  about  the  best  way  to 
get  a  copy. 


Antic  pays  $25  for  every  original  and  exclusive  Tech 
Tip  submission  that  we  publish.  Send  your  8-bit  or  ST 
disk  and  printout  to:  Antic  Tech  Tips,  544  Second 
Street,  San  Francisco,  CA  94107-  Tech  Tips  welcomes 
very  short  programs  that  demonstrate  the  Atari's 
powers,  simple  hardware  modifications,  or  useful 
macros  for  popular  software. 
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ANTIC,  THE  ATARI  RESOURCE 


Lyco  Computer 

Marketing  &  Consultants 


Air  orders  processed  within  24  hours. 


Great  Value 


Panasonic. 

Office  Automationj<^'''\£\\ 

1091i  Modem 

Speed  and  flexibility  for  your  office 
or  home.  Panasonic  combines  192 
ops  draft  with  38  cps  NLQ  for  a 
wide  variety  of  printing  needs. 
Quality  support  through  a  2-year 
warranty  from  Panasonic. 


The  easier 
the  better! 


$179 


95 


If  you  are  seeking  world  renowned 
printer  performance  for  your  home, 
look  no  farther  than  the  120D.  Your 
data  processing  needs  are  handled 
quickly  at  a  print  speed  of  120  cps 
(draft)  or  25  cps  (NLQ).  The  120D 
features  9  pin  dot  matrix  print 
quality,  standard  parallel  Centronics 
Interface  and  a  4K  text  buffer. 


CITIZEN 

120-D 


$144 


95 


Great  Performance 
Great  Price 


.IL 


I5£^/ 


NX- 1000 
RAINBOW 


iicronic  % 


The  Star  NX-1000  Rainbow  adds 
a  whole  new  dimension  to  your 
work  through  multi-color  printing. 
Star  fias  designed  20  printing 
options  into  this  printer.  Add  to  this 
paper  parking,  Epson-IBM 
emulation,  high  resolution  NLQ/ 
graphics  for  a  printer  with  extra 
talent  over  the  competition. 


$225- 


•  Hayes  At  Command 
Option  Set 

•  Auto/Manual 
Originate  Answer 

•  Auto  Dial  With  Pulse 
or  Tone  Select 

•  RS-232C  Interface 

•  2-Year  Warranty 


Avatex: 

1200E 


$65^^* 


PRICE  GUARANTEE 

Since  1981,  we  have  led  the  industry  by  continuing  to  offer  the  lowest  national  prices  while 
providing  quality  service.  Ivlany  companies  have  come  and  gone  trying  to  imitate  our  quality  and 
service.  If  by  some  oversight  we  do  not  have  the  lowest  prices  advertised  on  the  products  you 
desire,  then  we  would  appreciate  the  opportunity  to  rectify  this  oversight. 


PRINTER  PAPER 


1000  sheet  laser  $16.95 

1000  mailing  labels  $8.95 

200  sheet  OKI  20  $8.95 

Transparent  Labels  $4.95 

Banner  PaDer45'  Roll .   $10.95 


TO  ORDER,  CALL  TOLL-FREE:  1-800-233-8760 
New  PA  Wats:  1-800-233-8760 

Outside  Continental  US  Call:  1-717-494-1030 

Hours:  Monday  through  Friday,  9:00  a.m.  to  9:00  p.m. 
Saturday,  10:00  a.m.  to  6:00  p.m. 

For  Customer  Service,  call  1-717-494-1670, 

9AM  to  5PM,  Mon.  -  Fri. 

Or  write:  Lyco  Computer,  Inc. 

P.O.  Box  5088,  Jersey  Shore,  PA  1 7740 


Don't  Miss  Our  Other  Value 
Packed  Pages  In  This  Issue! 

Please  Note:  •tull  manufacturers' warranties  •no  sales  tax  outside 
PA  •  prices  show  4%  cash  discount;  add  4%  for  credit  cards  •  APO,  FPO, 
international:  add  $5  plus  3%  for  priority  •  4-week  clearance  on  personal  checks 
•  we  check  for  credit  card  theft  •  sorry,  compatibility  not  guaranteed  •  return 
authorization  required  vdue  to  new  productguarantee,  return  restrictions  apply* 
price/availabi  Itty  subject  to  change  •  prepaid  orders  under  $50  in  Continental  OS, 
add  $3.00 


1-800-235-8760 > 
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MENACE  is  a  pure  arcade  game  —  a  fast  action  packed  journey 
tlirougli  six  very  different  worlds  where  lightning  fast  reflexes  and 
furious  fire  button  action  are  your  only  hope  of  survival. 

Your  mission  orders  are  simple,  you  must  destroy  the  planet 
Draconla.  In  theory  possible,  In  practice  ... 

The  planet  Draconla,  an  unnatural  planet,  has  been  formed  over 
many  centuries  by  six  of  the  most  feared  rulers  that  have  ever 
existed.  These  rulers,  exiled  from  their  home  galaxy,  have  ravaged 
and  plundered  space,  using  the  worlds  they  have  destroyed  and  the 
life  forms  they  have  created  to  build  this  planet  of  fear  and  death. 

Now  an  end  must  be  put  to  their  reign  of  terror.  A  large  scale  attack 
will  prove  too  costly  to  our  space  fleets.  Draconla  has  many  orbiting 
defence  systems,  the  sacrifice  may  be  in  thousands  of  lives.  A  single 
fighter  craft,  approaching  undetected,  may  have  a  chance  to  avenge 
those  who  have  perished,  by  destroying  Draconla.  You  have  that 
chance  .  .  . 

AMIGA/ATARI  ST  —$29.95 


ADDICTIVE  ARCADE  ACTION 

PSYCLAPSE  -  A  NEW  LABEL  FROM  PSYGNOSIS 
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COMPUTER 
SOFTVN/ARE 
SERVICE 


21 50  Executive  Drive 

Addison  Illinois  60101 

Toll  Free:  1-800-422-4912 

In  Illinois:  1-800-331-SOFT 


